điền dữ liệu vào bảng theo 1 quy tắc (1 người xem)

[ct680463]

nhờ mọi người giúp đỡ:
mình có bảng tính gồm 2 bảng 1 và bảng 2:
+số liệu ở bảng 1 được nhập thủ công giờ làm sao để tự động điền vào bảng 2 (dùng hàm hoặc VBA)
P.S: hoặc số liệu ở bảng 2 có thể nhập thủ công và tự động điền vào bảng 1 ấy
Thank.ae dd

 

[Lê Duy Thương]

nhờ mọi người giúp đỡ:
mình có bảng tính gồm 2 bảng 1 và bảng 2:
+số liệu ở bảng 1 được nhập thủ công giờ làm sao để tự động điền vào bảng 2 (dùng hàm hoặc VBA)
P.S: hoặc số liệu ở bảng 2 có thể nhập thủ công và tự động điền vào bảng 1 ấy
Thank.ae dd

bạn nên xem kỹ khi hỏi bài nhé. đưa 2 cái bảng không có lấy 1 chữ của tiêu đề thì thua . chờ xem có người nào giúp không nhé
hic

 

[SA_DQ]

Chuyển 1 => 2

Option Explicit
Sub Chuyen1Sang2()
 Dim Rws As Long, jJ As Long
 
 Rws = [D65500].End(xlUp).Row
 [K1].value="GPE.COM"
 [k3].Resize(Rws, 9).Clear
 For jJ = 3 To Rws Step 7
    With [K65500].End(xlUp).Offset(2)
        .Value = Cells(jJ, "D").Value
        .Offset(1).Value = Cells(jJ, "F").Value
        .Offset(, 7).Value = Cells(jJ + 3, "D")
        .Offset(1, 7).Value = Cells(jJ + 3, "f")
    End With
 Next jJ
End Sub

 

[ct680463]

h đã bổ sung thêm rồi bạn nhá

Option Explicit
Sub Chuyen1Sang2()
 Dim Rws As Long, jJ As Long
 
 Rws = [D65500].End(xlUp).Row
 [K1].value="GPE.COM"
 [k3].Resize(Rws, 9).Clear
 For jJ = 3 To Rws Step 7
    With [K65500].End(xlUp).Offset(2)
        .Value = Cells(jJ, "D").Value
        .Offset(1).Value = Cells(jJ, "F").Value
        .Offset(, 7).Value = Cells(jJ + 3, "D")
        .Offset(1, 7).Value = Cells(jJ + 3, "f")
    End With
 Next jJ
End Sub

thanks bạn
thế là cũng ổn như ko biết giờ làm sao để dữ liệu ở bảng 2 khi nhập tay thì sang bảng 1 được?

 

[ChanhTQ@]

Thì đây & xin mời

thanks bạn
thế là cũng ổn như ko biết giờ làm sao để dữ liệu ở bảng 2 khi nhập tay thì sang bảng 1 được?

Option Explicit
Sub Chuyen2Sang1()
 Dim Rws As Long, jJ As Long
 
 Rws = [k65500].End(xlUp).Row
 [D3].Resize(2 * Rws + 9, 4).Clear
 For jJ = 3 To Rws Step 3
    If jJ = 3 Then
        Cells(jJ, "D").Value = Cells(jJ, "K").Value
        Cells(jJ, "F").Value = Cells(jJ + 1, "K").Value
        
        Cells(jJ, "D").Offset(3).Value = Cells(jJ, "R").Value
        Cells(jJ, "F").Offset(3).Value = Cells(jJ + 1, "R").Value
    Else
        With Cells(65500, "D").End(xlUp).Offset(4)
            .Value = Cells(jJ, "K").Value
            .Offset(, 2).Value = Cells(jJ + 1, "K").Value
            .Offset(3).Value = Cells(jJ, "R").Value
            .Offset(3, 2).Value = Cells(jJ + 1, "R").Value
        End With
    End If
 Next jJ
End Sub

 

[ct680463]

Option Explicit
Sub Chuyen2Sang1()
 Dim Rws As Long, jJ As Long
 
 Rws = [k65500].End(xlUp).Row
 [D3].Resize(2 * Rws + 9, 4).Clear
 For jJ = 3 To Rws Step 3
    If jJ = 3 Then
        Cells(jJ, "D").Value = Cells(jJ, "K").Value
        Cells(jJ, "F").Value = Cells(jJ + 1, "K").Value
        
        Cells(jJ, "D").Offset(3).Value = Cells(jJ, "R").Value
        Cells(jJ, "F").Offset(3).Value = Cells(jJ + 1, "R").Value
    Else
        With Cells(65500, "D").End(xlUp).Offset(4)
            .Value = Cells(jJ, "K").Value
            .Offset(, 2).Value = Cells(jJ + 1, "K").Value
            .Offset(3).Value = Cells(jJ, "R").Value
            .Offset(3, 2).Value = Cells(jJ + 1, "R").Value
        End With
    End If
 Next jJ
End Sub

Thank bác, ko giờ mà nhập tay 2 bảng thì mất công mất sức lắm.