Code chèn dòng (1 người xem)

[Excel365]

Nhờ các anh, chị giúp em viết code chèn dòng
Khi chèn hoặc xóa dòng ở sheet Mảu thì, các sheet còn lại cũng chèn hoặc xóa dòng ở ở trí tương ứng, sao cho giống với sheet MAU vệ nội dung và STT.
Trân trọng

 

[ChanhTQ@]

/-)ây là macro của bạn, xóa hay thêm dòng ở cả 5 trang tính luôn

Option Explicit
Sub gpeThemXoaDong()
 Dim AddDel As String, ShName As String
 Dim DongDau As Long, SoDong As Byte, J As Byte
 
 Sheets("MaU").Select
 AddDel = InputBox("Them : 'T'" & Chr(10) & "Xóa: 'X'", "Hay Nhap Chu Cái Thích Hop:", "T")
 AddDel = UCase$(AddDel)
 DongDau = InputBox("Hay Nhap Dòng Dàu De Xu Lý:")
 SoDong = InputBox("Nhap Só Dòng Càn Xu Lý:") - 1
 For J = 1 To 5
    ShName = Choose(J, "T01", "T02", "T03", "THop", "Mau", "GPE")
    With Sheets(ShName).Rows(DongDau & ":" & DongDau + SoDong)
        If AddDel = "T" Then
            .Insert Shift:=xlDown
        ElseIf AddDel = "X" Then
            .Delete
        Else
            MsgBox "GPE.COM Xin Chào Ban!"
        End If
    End With
 Next J
End Sub

 

[Excel365]

Cảm ơn ChanhTQ@ nhiều
Nhưng bạn có thể chỉnh lại giúp mình 1 tý nhe.
Ý mình muốn là chèn dòng bên sheet MAU có nội dung là VÍ DỤ thì các sheet còn lại cũng chèn thêm 1 dòng cũng có nội dung là VÍ DỤ.
Trân trọng cảm ơn

 

[SA_DQ]

Như vậy loạt hành động của bạn sẽ là trường hợp nào sau đây:
(A)
(*) Thêm dòng mới vô 'Mau'
(*) Thêm nội dung vô dòng mới đó
(*) Thêm dòng mới vô 4 trang còn lại
(*) Chép nội dung dòng mới của 'Mau' sang dòng mới của các trang tính

(B)

(Cách nào khác(?))

 

[Excel365]

Như vậy loạt hành động của bạn sẽ là trường hợp nào sau đây:
(A)
(*) Thêm dòng mới vô 'Mau'
(*) Thêm nội dung vô dòng mới đó
(*) Thêm dòng mới vô 4 trang còn lại
(*) Chép nội dung dòng mới của 'Mau' sang dòng mới của các trang tính

(B)

(Cách nào khác(?))

Theo trường hợp A
(A)
(*) Thêm dòng mới vô 'Mau'
(*) Thêm nội dung vô dòng mới đó
(*) Thêm dòng mới vô 4 trang còn lại
(*) Chép nội dung dòng mới của 'Mau' sang dòng mới của các trang tính

 

[SA_DQ]

Như vậy bạn thử tự sửa macro trên chỉ để còn chức năng xóa dòng &

Khi cần thêm (vài) dòng vô 4 trang tính còn lại ta thực hiện các bước sau:

Chọn toàn bộ các dòng cần thêm ở trang tính 'Mau'
(Tất nhiên bạn đã thêm dữ liệu hay công thức vô các dòng này)

Bấm chạy macro sau:

Option Explicit
Sub AddRowAndValues()
 Dim ShName As String
 Dim Dong As Long, SoDong As Byte, J As Byte
 
 SoDong = Selection.Rows.Count - 1
 Dong = Selection(1).Row
 For J = 1 To 4
    ShName = "T" & Choose(J, "01", "02", "03", "Hop", "GPE.COM")
    With Sheets(ShName).Rows(Dong & ":" & Dong + SoDong)
        .Insert Shift:=xlDown
        Selection.Copy Destination:=Sheets(ShName).Cells(Dong, "A")
    End With
 Next J
End Sub

 

[Excel365]

Khi cần thêm (vài) dòng vô 4 trang tính còn lại ta thực hiện các bước sau:

Chọn toàn bộ các dòng cần thêm ở trang tính 'Mau'
(Tất nhiên bạn đã thêm dữ liệu hay công thức vô các dòng này)

Bấm chạy macro sau:

Option Explicit
Sub AddRowAndValues()
 Dim ShName As String
 Dim Dong As Long, SoDong As Byte, J As Byte
 
 SoDong = Selection.Rows.Count - 1
 Dong = Selection(1).Row
 For J = 1 To 4
    ShName = "T" & Choose(J, "01", "02", "03", "Hop", "GPE.COM")
    With Sheets(ShName).Rows(Dong & ":" & Dong + SoDong)
        .Insert Shift:=xlDown
        Selection.Copy Destination:=Sheets(ShName).Cells(Dong, "A")
    End With
 Next J
End Sub

HYen17 ơi cho mình hỏi, còn xóa những dòng tương ứng thì sao vậy HYen17

 

[ChanhTQ@]

HYen17 ơi cho mình hỏi, còn xóa những dòng tương ứng thì sao vậy HYen17

Thì đọc & thử thực hiện theo tiêu đề bài đó;

Nếu không có kết quả thì lên GPE.COM mà

 

[huynhkienphong]

- Các anh chị dùm sữa dùm em cái file này cám ơn trước
-Mở file lên và click chuột phải vào vào cột R
-click vào insert row và click ok 2 lần hoặc cancel 2 lan bị báo lỗi runtime error '13'


Private Sub CommandButton6_Click()
Dim AddDel As String, ShName As String
Dim DongDau As Long, SoDong As Byte, j As Byte
Sheets("BBNT_kt").Select
AddDel = InputBox("Thêm : 'T'" & Chr(10) & "Xóa: 'X'", "NHAP CHU CAI THICH HOP:", "T")
AddDel = UCase$(AddDel)
DongDau = InputBox("Nhap Vi Tri Dong Can Xu Ly:")
SoDong = InputBox("Nhap Só Dòng Càn Xu Lý:") - 1
For j = 1 To 5
ShName = Choose(j, "BBNT_kt", "YCNT", "NT_NB&CV")
With Sheets(ShName).Rows(DongDau & ":" & DongDau + SoDong)
If AddDel = "T" Then
.Insert Shift:=xlDown
ElseIf AddDel = "X" Then
.Delete
Else
MsgBox "GPE.COM Xin Chào Ban!"
End If
End With
Next j
End Sub