xin hướng dẫn cách update thêm rows

[buianh]

Tôi đang gặp phải một việc khó là khi update từ các sheet có tên updatexx vào các sheet TBH73../ TBH74.. thi không biết làm sao để có thể tự insert thêm row và data vào row đó

VD: khi update mã hàng Xa9-1493-000 có 50 ctns và 1000.000 pcs ở sheet update22 sang sheet tbh073 thí chi update được 1 lần, nhưng khi update mã đó từ sheet update23 thì khong insert thêm 1 row va put 45 ctns và 900.000 pcs vào mã đó tại sheet tbh073 được. Rất mong các bạn giúp đỡ!!!
Xin hãy xem file đính kèm

 

[tigertiger]

Nên sửa lại tiêu đề

Toi dang gap phai mot viec kho la khi update tu cac sheet update vao các sheet TBH73../ TBH74.. thi không biết làm sao để có thể tự insert thêm row và data vào row đó

VD: khi update mã hàng Xa9-1493-000 có 50 ctns và 1000.000 pcs ở sheet update22 sang sheet tbh073 thí chi update được 1 lần, nhưng khi update mã đó từ sheet update23 thì khong insert thêm 1 row va put 45 ctns và 900.000 pcs vào mã đó tại sheet tbh073 được. Rất mong các bạn giúp đỡ!!!
Xin hãy xem file đính kèm

Lưu ý bạn phải viết tiếng việt có dấu cả tiêu đề lun, nếu k bài viết sẽ là phạm quy và sẽ bị xóa -> vì thế các thành viên cũng ngại trả lời, DO ĐÓ bạn sửa lại tiêu đề đi

Tuy nhiên
Bạn xem chủ đề này -> rồi sửa thành của mình xem sao
http://www.giaiphapexcel.com/forum/showthread.php?t=9957

 

[buianh]

Lưu ý bạn phải viết tiếng việt có dấu cả tiêu đề lun, nếu k bài viết sẽ là phạm quy và sẽ bị xóa -> vì thế các thành viên cũng ngại trả lời, DO ĐÓ bạn sửa lại tiêu đề đi

Tuy nhiên
Bạn xem chủ đề này -> rồi sửa thành của mình xem sao
[URL="http://www.giaiphapexcel.com/forum/showthread.php?t=9957"]http://www.giaiphapexcel.com/forum/showthread.php?t=9957[/URL]

Cảm ơn bạn, tôi đã xem chủ đề này nhưng k thê áp dụng được. mong bạn llàm ơn hướng dẫn giúp cụ thể hơn. Cảm ơn

 

[digita]

Toi dang gap phai mot viec kho la khi update tu cac sheet update vao các sheet TBH73../ TBH74.. thi không biết làm sao để có thể tự insert thêm row và data vào row đó

VD: khi update mã hàng Xa9-1493-000 có 50 ctns và 1000.000 pcs ở sheet update22 sang sheet tbh073 thí chi update được 1 lần, nhưng khi update mã đó từ sheet update23 thì khong insert thêm 1 row va put 45 ctns và 900.000 pcs vào mã đó tại sheet tbh073 được. Rất mong các bạn giúp đỡ!!!
Xin hãy xem file đính kèm

Bạn lấy file nầy về dùng nhé. Khi trong bảng update nào đó, bấm nút Ctrl và nút a cùng 1 lúc để kích hoạch macro. Khi hoàng tất công việc cập nhật cho 1 trang thì có thông báo in kế bên ô ngày (date issued). Mã hành nào không có cập nhật được thì được in đậm và tô đỏ đễ dễ kiểm tra.

Mến

 

[buianh]

Bạn lấy file nầy về dùng nhé. Khi trong bảng update nào đó, bấm nút Ctrl và nút a cùng 1 lúc để kích hoạch macro. Khi hoàng tất công việc cập nhật cho 1 trang thì có thông báo in kế bên ô ngày (date issued). Mã hành nào không có cập nhật được thì được in đậm và tô đỏ đễ dễ kiểm tra.

Mến

Quá tuyệt bạn ạ!!!, cảm ơn bạn nhiều !!! Bạn đúng là cao thủ VBA

 

[philip]

Nhân tiện đây cho mình hỏi, nếu có một điều kiện thế này: nếu ở ô F5 của Sheet1=0 (hoặc trống) thì hàng chứa ô H7 của Sheet2 sẽ bị ẩn hoặc ngược lại được ko? Monmg mọi người chỉ giúp. Thanks

 

[ndu96081631]

Nhân tiện đây cho mình hỏi, nếu có một điều kiện thế này: nếu ở ô F5 của Sheet1=0 (hoặc trống) thì hàng chứa ô H7 của Sheet2 sẽ bị ẩn hoặc ngược lại được ko? Monmg mọi người chỉ giúp. Thanks

Bạn có thể dùng IF là đựoc rồi mà, chẳng hạn:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Rows("7:7").EntireRow.Hidden = IIf(Range("F5") = 0, True, False)
End Sub

 

[Mr Okebab]

Bạn có thể dùng IF là đựoc rồi mà, chẳng hạn:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Rows("7:7").EntireRow.Hidden = IIf(Range("F5") = 0, True, False)
End Sub

Xin lỗi bác khi cắt ngang.
Bác lại cẩn thận quá, chỉ cần thế này thôi ạ :

Private Sub Worksheet_Change(ByVal Target As Range)
     Sheet2.Rows("7:7").EntireRow.Hidden = (Range("F5") = 0)
End Sub

Thân!

 

[180178]

Bạn lấy file nầy về dùng nhé. Khi trong bảng update nào đó, bấm nút Ctrl và nút a cùng 1 lúc để kích hoạch macro. Khi hoàng tất công việc cập nhật cho 1 trang thì có thông báo in kế bên ô ngày (date issued). Mã hành nào không có cập nhật được thì được in đậm và tô đỏ đễ dễ kiểm tra.

Mến

Bạn ơi, sao mình mở được rồi nhưng không hiểu, mình chưa được biết gì về VBA giờ muốn tìm hiểu, bạn có thể hướng dẫn giúp mình được không?

 

[philip]

Private Sub Worksheet_Change(ByVal Target As Range)
     Sheet2.Rows("7:7").EntireRow.Hidden = (Range("F5") = 0)
End Sub

Thân!

Cảm ơn mọi người nhé, thật đơn giãn mà mình ko làm được, mình mới tập tành nên xin mọi người chỉ giáo. Thanks
Àh, còn nếu mình làm một Button voi Caption (Them) để khi mình bấm chọn thì hàng nào đó Unhidden thì làm thế này ko chạy được, giúp mình luôn nhé

Private Sub CmdThem_Click()
Sheet1.Rows("22:22").EntireRow.Show '= (Range("j22") = 0)
End Sub

 

[ndu96081631]

Sao mình ko làm được nhỉ, chỉ thêm cho mình cách thực hiện đi, mình đã cố thử làm mà ko được. Mới tập viết VB mà

Bạn bấm Alt + F11 để mở của sổ VBE, copy đoạn code trên rồi dán vào sheet nào đó khác với sheet 2 là xong!
Lưu ý: Coi chừng sheet code name của bạn không phải là Sheet2 thì code không chạy được đâu nha
Xem file ví dụ

 

[philip]

Bạn bấm Alt + F11 để mở của sổ VBE, copy đoạn code trên rồi dán vào sheet nào đó khác với sheet 2 là xong!
Lưu ý: Coi chừng sheet code name của bạn không phải là Sheet2 thì code không chạy được đâu nha
Xem file ví dụ

Cảm ơn ndu96081631 nhiều. Trong lúc online để thử nghiệm thì mình đã làm được rồi, nên mình đã sửa nội dung bài viết rồi. Bạn vui lòng đọc lại rồi giúp luon nha.

 

[ndu96081631]

Cảm ơn mọi người nhé, thật đơn giãn mà mình ko làm được, mình mới tập tành nên xin mọi người chỉ giáo. Thanks
Àh, còn nếu mình làm một Button voi Caption (Them) để khi mình bấm chọn thì hàng nào đó Unhidden thì làm thế này ko chạy được, giúp mình luôn nhé

Private Sub CmdThem_Click()
Sheet1.Rows("22:22").EntireRow.Show '= (Range("j22") = 0)
End Sub

Tôi nghĩ bạn phải sửa lại thành:

Private Sub CommandButton1_Click()
Sheet1.Rows("22:22").EntireRow.Hidden = (Range("j22") = 0)
End Sub

Hoặc

Private Sub CommandButton1_Click()
Sheet1.Rows("22:22").EntireRow.Hidden = (Range("j22") <> 0)
End Sub

Tùy theo yêu cầu

 

[philip]

Tôi nghĩ bạn phải sửa lại thành:

Private Sub CommandButton1_Click()
Sheet1.Rows("22:22").EntireRow.Hidden = (Range("j22") = 0)
End Sub

Hoặc

Private Sub CommandButton1_Click()
Sheet1.Rows("22:22").EntireRow.Hidden = (Range("j22") <> 0)
End Sub

Tùy theo yêu cầu

cảm ơn bạn đã cho ý kiến, nhưng ý mình là HIỆN ROW mà, mọi người xem Flie đính kèm nhé

 

[ndu96081631]

cảm ơn bạn đã cho ý kiến, nhưng ý mình là HIỆN ROW mà, mọi người xem Flie đính kèm nhé

Trong file tôi thấy bạn có dùng sự kiện WorkSheet_Change, như vậy là tự động rồi còn gì:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
For i = 3 To 17
Sheet1.Rows(i).EntireRow.Hidden = (Range("d" & i) = 0)
Next
End Sub

Bạn có thể sửa lại như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range
  If Not Intersect(Range("D3:D1000"), Target) Is Nothing Then
    If Target = 0 Then
       Rows(Target.Row).EntireRow.Hidden = True
    Else:
       Rows(Target.Row).EntireRow.Hidden = False
    End If
  End If
End Sub

Khi nhập liệu vào cột D, cứ = 0 là nó sẽ ẩn dòng

 

[buianh]

Bạn lấy file nầy về dùng nhé. Khi trong bảng update nào đó, bấm nút Ctrl và nút a cùng 1 lúc để kích hoạch macro. Khi hoàng tất công việc cập nhật cho 1 trang thì có thông báo in kế bên ô ngày (date issued). Mã hành nào không có cập nhật được thì được in đậm và tô đỏ đễ dễ kiểm tra.

Mến

To: Digita

Mình đã dùng cái của bạn nhưng vừa rồi trong khi làm mình có phát hiện ra một số lỗi khi mình update mà k tìm cách sửa được. Rất mong bạn sửa giúp mình với.
Bạn xem trong file đính kèm mình có bôi màu vàng những lỗi khi update

Cảm ơn bạn, rất mong nhận được sự giúp đỡ của bạn.

 

[philip]

Trong file tôi thấy bạn có dùng sự kiện WorkSheet_Change, như vậy là tự động rồi còn gì:

Đúng vậy, nhưng mình muốn cho Macro này luôn hoạt động, tức là bên Sheet1 mình nhập vào giá trị 0 thì bên Sheet2 hàng tương ứng (có khai trong CODE) thì sẽ tự Hide, chứ ko cần mình fải kích hoạt nó chạy mới Hide.

Khi nhập liệu vào cột D, cứ = 0 là nó sẽ ẩn dòng

Mình hỏi về CommandButton mà, khi Click vào thì nó sẽ cho hiện cái dòng mà Macro bên trên đã ẩn trước đó mặc dù lúc này giá trị nó vẫn tạm thời bằng 0, mục đích hiện ra là để mình nhập vào mà

 

[ndu96081631]

Đúng vậy, nhưng mình muốn cho Macro này luôn hoạt động, tức là bên Sheet1 mình nhập vào giá trị 0 thì bên Sheet2 hàng tương ứng (có khai trong CODE) thì sẽ tự Hide, chứ ko cần mình fải kích hoạt nó chạy mới Hide.

Mình hỏi về CommandButton mà, khi Click vào thì nó sẽ cho hiện cái dòng mà Macro bên trên đã ẩn trước đó mặc dù lúc này giá trị nó vẫn tạm thời bằng 0, mục đích hiện ra là để mình nhập vào mà

Thì ra là vậy! Tôi hiểu lầm, tưởng ẩn trong sheet 1 luôn
Bạn xem file này có đúng ý không nha

 

[philip]

Thì ra là vậy! Tôi hiểu lầm, tưởng ẩn trong sheet 1 luôn
Bạn xem file này có đúng ý không nha

Đúng rồi, cảm ơn NDU nhé, đơn giản thế mà ko làm được,

 

[digita]

To: Digita

Mình đã dùng cái của bạn nhưng vừa rồi trong khi làm mình có phát hiện ra một số lỗi khi mình update mà k tìm cách sửa được. Rất mong bạn sửa giúp mình với.
Bạn xem trong file đính kèm mình có bôi màu vàng những lỗi khi update

Cảm ơn bạn, rất mong nhận được sự giúp đỡ của bạn.

Đúng rồi, vòng lặp bị trược nên thông tin không vô đúng mã hàng. Đã chỉnh code lại. Bạn thữ lại xem sao - bấm Ctrl + a trong sheet update kích hoạt nó nhá.

Gời ban điều hành GPE.

Chúc mừng sinh nhật thứ 2. Ba cái hộp bay bay che màn hình hơi khó nhìn. Admin nên viết code làm 1 hành chữ chạy ở trên hay dưới màn hình thì hay hơn. Nên làm vậy cho năm sau nhá.


Mến