Cần cập nhập dữ liệu theo điều kiện mọi người giúp đỡ

[longlanh]

mình mới làm một file gồm nhiều loại trong data bgiờ muốn lưu lại từ một shet khác vào data theo ma_kh nhưng trình độ có hạn mong mọi người giúp!

 

[SA_DQ]

Bài này chỉ góp cách cải thiện fần nào yêu cầu (2) của bạn

Bạn chép macro sau đề lên của bạn & chạy xem có cải thiện tốc độ hay không?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim DongC As Long, Dong1 As Long, Dong As Long
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim MyAdd As String
  
If Not Intersect(Target, Range("E1")) Is Nothing Then
   Set Sh = ThisWorkbook.Worksheets("DATA")
      
    DongC = Sh.Range("B65536").End(xlUp).Row + 9
    Set Rng = Sh.[E1].Resize(DongC)
    Range("B5:h" & DongC).ClearContents
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlPart)
    If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         With Cells(DongC, "B").End(xlUp).Offset(1)
            .Resize(, 6).Value = sRng.Offset(, -3).Resize(, 6).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
GoTo GPE
    Dong1 = 5
    For Dong = 2 To DongC
        If Trim(Sheets("DATA").Range("E" & Dong).Value) = Trim(Target.Value) Then
            Range("B" & Dong1 & ":G" & Dong1).Value = _
            Sheets("DATA").Range("B" & Dong & ":G" & Dong).Value
            Dong1 = Dong1 + 1
        End If
    Next
GPE:
End If
Exit Sub
Range([b4], [b65000].End(xlUp).Offset(, 10)).Borders.Value = 1
End Sub

 

[longlanh]

Cảm ơn Hyen17 đã đỡ chậm nhưng vẫn còn chậm. Có ai giúp mình lưu dữ liệu với!

 

[SA_DQ]

Bạn xem trong file kèm theo

Chưa hiểu hết í vấn đề (1) nên chưa bắt tay vào thử sức; Có thể, bạn nói rõ thêm (1) & (3)

 

[longlanh]

Mình mô ta công việc như này: hàng tháng mình phải nhập vào số liệu để tính toán. Tuy cơ quan đã có phần mền nhưng xếp vẫn phải bắt tính bằng EXCel để kiểm tra trước. ở trong file sheet DATA là toàn bộ dữ liệu là các khách hàng mà hàng tháng phải đưa chỉ số vào đó là chỉ số công tơ điện. chỉ số cuối kỳ của tháng này sẽ lũy kế chuyển thành chỉ số đầu kỳ tháng sau. vậy mình muốn sau khi nhập xong 1 quyển chỉ số cuối kỳ ở cột E (NHAPCS) ấn CAP NHAT và được lưu vào các cột tương ứng cho các tháng trong sheet DATA. theo chỉ số của các khách hàng đúng theo biểu.

Mình đã sửa lại số TT và có thể lưu theo số thứ tự nhưng mình không thể viết macro được. mong mọi người giúp

Đã sửa thành số thứ tự trong DATA để khi cập nhật cột H (CSCK) sau mỗi lần nhập xong vào DATA của tháng làm việc. Nhưng mình không thể viết được Macro mong mọi người giúp với

 

[ChanhTQ@]

Đây là macro của bạn để chuyển số liệu của thágn sang 'DATA'

Hãy vô số liệu tại 'H' trước khi chạy macro;

Sub GPE() 
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
  Dim MyAdd As String 
   MsgBox "Nhap Só Lieu Cuói Ky", , "GPE THONG BÁO"  
Set Sh = ThisWorkbook.Worksheets("DATA")
  Set Rng = Sh.Range(Sh.[C1], Sh.[c2].End(xlDown))
  Sheets("NHAPCS").Select
  For Each Cls In Range([c5], [c5].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole)
    If Not sRng Is Nothing Then
       MyAdd = sRng.Address 
      Do 
         If Cls.Offset(, 1).Value = sRng.Offset(, 1).Value Then
                       Sh.Cells(sRng.Row, 9 + [k1].Value).Value = Cls.Offset(, 5).Value
                       Exit Do
          End If
          Set sRng = Rng.FindNext(sRng)
       Loop While Not sRng Is Nothing And sRng.Address  MyAdd
    Else
       If Cls.Row < 10 Then MsgBox Cls.Address
    End If
  Next Cls
 End Sub

 

[longlanh]

cẢM ƠN ChanhTQ@ NẾU NHƯ bạn giúp mình đưa vào file thì tốt quá

nhờ các anh chị xử lý giùm khi nhập vào file không tự động chuyển tháng mà phải ấn ctrl+s thì mới chuyển kể cả các kết quả tính toán

 

[ChanhTQ@]

File mình đưa lên ở bài trước rồi đó, đến xem với các lưu í dưới đây

Đã sửa thành số thứ tự trong DATA để khi cập nhật cột H (CSCK) sau mỗi lần nhập xong vào DATA của tháng làm việc. Nhưng mình không thể viết được Macro mong mọi người giúp với

(*) Đã chép nối dữ liệu từ 2 file bạn đưa lên;

(*) Lý ra bạn fải giả lập số liệu tại cột 'H' để macro làm việc;
Làm mình fải viết macro giả lập số liệu cho bạn, thật hết biết bạn luôn! & tặng bạn macro giả lập số liệu đó luôn trong file;

(*) Lần trước mọi người không gởi file cho bạn, mà chỉ gởi các câu lệnh vì thấy rằng trong file bạn đã có xài Code với lại nút lệnh liên quan đến macro!

(*) Hãy bấm vô nút lệnh của bạn, nếu macro có thông báo cái chi chi đó thì OK để có KQ (kết quả) bên 'DATA'
/-(ãy kiểm tra KQ tháng 1 xem sau; Sau đó đổi ô cần thiết sang các tháng khác còn lại, chạy ngay macro sau mỗi lần đổi xem macro chép đúng cột tháng chưa nhe!

 

[longlanh]

Cảm ơn ChanhTQ@. khổ nỗi mày mò cố gắng làm được như vậy thôi. bí quá nên nhờ mọi người.
Nhưng vấn đề là file bây giờ khi mình chọn chuyển tháng thì các không nhảy ngay mà phải ấn SEVE hay (Ctrol +S) thì mới nhảy không auto SEVE. vậy mọi người giúp mình với.

 

[ChanhTQ@]

Vấn đề là bây giờ khi mình chọn (1) chuyển tháng thì (2) các không nhảy ngay mà phải ấn SAVE hay (Ctrol +S) thì mới nhảy không auto SAVE. vậy mọi người giúp mình với.

(1) Chuyển tháng ở đâu (ô nào) vậy bạn?
Hay bạn muốn chuyển tháng ở [K1] thì số liệu bên 'DATA' của tháng tương ứng sẽ được nạp qua cột 'G'? (A)
Hoặc bạn muốn là một khi đổi tại [K1] thì số liệu vừa nhập vô cột 'H' sẽ chuyển sang 'DATA' đúng vào cột tháng cần thiết? (B)

(2) Muốn số liệu nhảy ngay thì xài macro sự kiện, để chúng 'tưng từng tưng' cho bạn sau khi bạn tiến hành 1 sự kiện nào đó; Chỉ iêu cầu bạn cho biết nhân sự kiện gì & sự kiện đó sẩy ra ở đâu mà cần nhảy mà thôi?


Chúc xuân vui vẻ!

 

[longlanh]

Rồi mình làm được rồi. nhưng mình muốn:
1- thêm yêu cầu trước khi cập nhật "bạn có muốn cập nhật không? (yes) or (No)" có được không?
2 - khi chuyển tháng cũng hỏi như vậy
xin được giúp đỡ

 

[longlanh]

Khi mình thêm dữ liệu ở DATA có lỗi xảy ra nhờ giúp đỡ!

Anh ChanhTQ@ ơi ! nhờ anh xem file và sửa cho em với ! Cảm ơn anh