Gõ dữ liệu cột F2 & F3 thì giá trị dán xuống cột A & E

[tanthanh94]

Chào các anh GPE
Mình muốn thực hiện lệnh như sau
Nếu cột F2 có giá trị thì nút nhập liệu hiện lên ngược lại ẩn
Gõ dữ liệu cột F2 & F3 thì giá trị dán xuống cột A & E giống như công thức hiện tại.

 

[hung2412]

Nếu cột F2 có giá trị thì nút nhập liệu hiện lên ngược lại ẩn

Cái này thì tôi chưa biết.

Gõ dữ liệu cột F2 & F3 thì giá trị dán xuống cột A & E giống như công thức hiện tại.

Thử cái Code cùi:
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F2] <> "" And [F3] <> "" Then
Range([A6], [A1000]) = [F2]
Range([E6], [E1000]) = [F3]
End If
End Sub[/GPECODE]
P/s: Paste Code trên vào Sheet1, không phải Paste vào Module.

 

[tanthanh94]

Cái này thì tôi chưa biết.

Thử cái Code cùi:
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F2] <> "" And [F3] <> "" Then
Range([A6], [A1000]) = [F2]
Range([E6], [E1000]) = [F3]
End If
End Sub[/GPECODE]
P/s: Paste Code trên vào Sheet1, không phải Paste vào Module.

Cám ơn bạn nhiều.
Mình muốn Cột B có giá trị bao nhiêu dòng thì dán bấy nhiêu dòng thôi không biết có được không bạn

 

[hung2412]

Cám ơn bạn nhiều.
Mình muốn Cột B có giá trị bao nhiêu dòng thì dán bấy nhiêu dòng thôi không biết có được không bạn

Vậy thì bạn xài Code này:
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F2] <> "" And [F3] <> "" Then
Range([A6], [B65536].End(xlUp).Offset(, -1)) = [F2]
Range([E6], [B65536].End(xlUp).Offset(, 3)) = [F3]
End If
End Sub[/GPECODE]

 

[tanthanh94]

Vậy thì bạn xài Code này:
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F2] <> "" And [F3] <> "" Then
Range([A6], [B65536].End(xlUp).Offset(, -1)) = [F2]
Range([E6], [B65536].End(xlUp).Offset(, 3)) = [F3]
End If
End Sub[/GPECODE]

Cám ơn anh nhiều nha.

 

[tanthanh94]

Còn 1 điều kiện nửa anh giup luôn nha

 

[hung2412]

Còn 1 điều kiện nửa anh giup luôn nha

Bạn đang nói với tôi đấy ư? (Bạn nên trả lời với trích dẫn để biết là bạn đang nói với ai nhé.)

 

[lhthai]

Còn 1 điều kiện nửa anh giup luôn nha

[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F2] <> "" And [F3] <> "" Then
Range([A6], [B65536].End(xlUp).Offset(, -1)) = [F2]
Range([E6], [B65536].End(xlUp).Offset(, 3)) = [F3]
End If
If [F2] = "" Then
Sheet1.CommandButton1.Enabled = False
Else
Sheet1.CommandButton1.Enabled = True
End If
End Sub[/GPECODE]