Hỏi cách copy dữ liệu đến vị trí chỉ định theo điều kiện ? (1 người xem)

[chaoban888]

Cho em hỏi ví dụ
ô điều kiện là "A" thì copy dữ liệu đến sheet khác ở cột A
ô điều kiện là "B" thì copy dữ liệu đến sheet khác ở cột B
Có cách nào làm được điều này không ạ ?

 

[huu huan]

Đang đợi câu trả lời.

 

[quanluu]

Cho em hỏi ví dụ
ô điều kiện là "A" thì copy dữ liệu đến sheet khác ở cột A
ô điều kiện là "B" thì copy dữ liệu đến sheet khác ở cột B
Có cách nào làm được điều này không ạ ?

Tất nhiên là có chứ. Nhưng còn phải xem cấu trúc dữ liệu của bạn như thế nào.

 

[chaoban888]

Mẫu dữ liệu của em là ô A1:A10
Ô điều kiện là ô B1
Em muốn copy dữ liệu sang sheet2 nếu ô điều kiện là "A" thì copy sang cột A nếu điều kiện là "B" thì copy sang cột B

 

[befaint]

Mẫu dữ liệu của em là ô A1:A10
Ô điều kiện là ô B1
Em muốn copy dữ liệu sang sheet2 nếu ô điều kiện là "A" thì copy sang cột A nếu điều kiện là "B" thì copy sang cột B

Xin mời gửi luôn cái file excel đang làm thật ấy lên đi. Chứ cái ảnh trên ngắm tham khảo thôi...

 

[chaoban888]

Xin mời gửi luôn cái file excel đang làm thật ấy lên đi. Chứ cái ảnh trên ngắm tham khảo thôi...

Thực ra gõ vài dòng là ra mà, em gửi file đây ạ

 

[befaint]

Thực ra gõ vài dòng là ra mà, em gửi file đây ạ

Nếu nghĩ và viết như chỗ màu đỏ thì sao không làm đi mà đợi người khác nhắc?

Và làm xong theo file bài trên có hỏi thêm nữa không?

-----

Dim tmp
tmp = Sheet1.Range("A1:A10")
Sheet2.Range(Sheet1.Range("B1").Value & dong_nao_chiu_chet).Resize(UBound(tmp, 1), 1) = tmp

 

[chaoban888]

Dim tmp
tmp = Sheet1.Range("A1:A10")
Sheet2.Range(Sheet1.Range("B1").Value & dong_nao_chiu_chet).Resize(UBound(tmp, 1), 1) = tmp

Em chạy bị lỗi ngay dòng
tmp = Sheet1.Range("A1:A10")

Em vừa làm chạy với điều kiện "A" được nhưng "B" lại không được với code như sau

Sub Macro1()
Dim c
For Each c In Worksheets("Sheet1").Range("B1")
 If c.Value = "A" Then
     Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
If c.Value = "B" Then
     Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B1").Select
    ActiveSheet.Paste
 End If
  End If
Next c
End Sub

Các bác xem điều chỉnh như nào ạ ?

 

[Ba Tê]

Dim tmp
tmp = Sheet1.Range("A1:A10")
Sheet2.Range(Sheet1.Range("B1").Value & dong_nao_chiu_chet).Resize(UBound(tmp, 1), 1) = tmp

Em chạy bị lỗi ngay dòng
tmp = Sheet1.Range("A1:A10")

Em vừa làm chạy với điều kiện "A" được nhưng "B" lại không được với code như sau

Sub Macro1()
Dim c
For Each c In Worksheets("Sheet1").Range("B1")
 If c.Value = "A" Then
     Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
If c.Value = "B" Then
     Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B1").Select
    ActiveSheet.Paste
 End If
  End If
Next c
End Sub

Các bác xem điều chỉnh như nào ạ ?

Như vầy thử xem sao

Public Sub GPE()
    Sheet1.Range("A1:A10").Copy Sheet2.Range(Sheet1.Range("B1") & "1")
End Sub

 

[chaoban888]

Cuối cùng em cũng giải xong

Sub aaaa()
c = Sheets("Sheet1").Range("B1").Value
 If c = "A" Then
    Sheets("Sheet1").Select
    Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
 ElseIf c = "B" Then
    Sheets("Sheet1").Select
    Range("A1:A10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B1").Select
    ActiveSheet.Paste
 End If
End Sub

 

[Hoang2013]

Xin chúc mừng bạn;
Nhưng còn dài dòng quá; Suy nghĩ tiếp xem & có thể bỏ hết các dòng lệnh If, ElseIf & End If đi được không.