Vấn đề đơn giản
Option Explicit
Sub copy2()
With Sheets("Sheet2")
.Cells(65536, 1).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("C2").Value
End With
End Sub
Hỏi như kiểu bạn thì chẳng ai hiểu lấy cái gì ở đâu và gán nó chỗ nào, của sheet nào?
Trước hết mình rất cảm ơn bạn đã trả lời bài viết của mình. Ý mình muốn hỏi là có thể copy các cột ko theo thứ tự từ sheet 1 qua sheet 2. có điều kiện ví dụ: Mình tạo nút lệnh khi mình rõ bên sheet 2 mã NVA01 thì sẽ copy tất cả các cột của NVA01 từ Sheet 1 sang Sheet 2
Bài 8 tôi nêu vầy:
Mình thấy cái mình nói nó cũng gần giống với cái bài này của bản. Bây giờ mình đưa file lên bạn xem giúp mình nhé. Cảm ơn
Thử:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End Sub. Với lại mình múôn thêm cái tiêu đề bên dứơi như ngày.... tháng... năm.... Nguời bán, nguời mua, nhân viên bán hàng. Mình có thể làm sao khi dữ liệu được thay đổi thì không ảnh huởng đến cái tiêu đề bên dưới
Vậy bạn xem code dưới đây:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 13
LR = Range("A5000").End(xlUp).Row
Range("F" & LR + 2) = Sheets("thongtin").Range("B2")
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End Sub
[/ph]Mình Rất...rất vô cùng cảm ơn bạn. Nhưng bạn có thể làm cho mục ngày tháng năm của hiện tại và tiêu đề người bán hàng chỉ in đậm khi xuất hiện ở dòng đó còn nếu xuât hiện dòng khác thì dòng khác in đậm dòng cũ trở lại bình thường dùm mình luôn được không bạn. Và khi nhấn nút in chỉ in dòng có dữ liệu thôi.
Thử:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
LR = Range("A5000").End(xlUp).Row
Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
End SubMình cảm ơn bạn. Nhưng mình có 3 vấn đề thắc mắc nhờ bạn giúp:
Bạn xem:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b(1 To 1000, 1 To 9), dk, i&, k&, LR
If Target.Address = "$G$3" Then
dk = [G3].Value
a = Sheets("BanHang").Range("A4", Sheets(1).Range("A6000").End(3)).Resize(, 31)
Application.ScreenUpdating = False
For i = 1 To UBound(a)
If a(i, 1) = dk And dk <> Empty Then
k = k + 1
b(k, 1) = k
b(k, 2) = a(i, 1): b(k, 3) = a(i, 2)
b(k, 4) = a(i, 8): b(k, 5) = a(i, 9)
b(k, 6) = a(i, 5): b(k, 7) = a(i, 11)
b(k, 8) = a(i, 13): b(k, 9) = a(i, 16)
End If
Next
If k Then
Range("A11:I1000").ClearContents
Range("A11").Resize(k, 9) = b
Range("A11:I65000").Borders.LineStyle = xlNone
Range("A11", Range("A65000").End(3)).Resize(, 9).Borders.LineStyle = 1
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Name = "Times New Roman"
Range("A11", Range("A65000").End(3)).Resize(, 9).Font.Size = 14
LR = Range("A5000").End(xlUp).Row
Range("G" & LR + 2) = Sheets("thongtin").Range("B1")
Range("G" & LR + 2).Font.Italic = True
Range("G" & LR + 3) = Sheets("thongtin").Range("B3")
Range("G" & LR + 3).Font.Bold = True
Range("G" & LR + 7) = Sheets("thongtin").Range("B4")
Else
Range("A11:I65000").Borders.LineStyle = xlNone
End If
End If
Range("A1:I" & LR + 8).Select
'Range("A1:I" & LR + 8).PrintOut
End SubCảm ơn bạn giỏi quá. Mình mới tập tành làm nên chưa rành lắm
