Anh/chị giúp em với ạ Copy và active dữ liệu vùng mới copy (1 người xem)

[lightd]

Diễn đàn vừa mất dữ liệu mong Anh chị giúp em ạ

 

[Ba Tê]

Diễn đàn vừa mất dữ liệu mong Anh chị giúp em ạ
..............................................................

Code đại khái nó thế này:

Public Sub S_Copy()
Dim Txt As String
Txt = InputBox("Nhap cai gi do", "GPE")
Range("A1:W31").Copy Range("A32")
Range("B32").Select
Range("B32").Value = Txt
End Sub

Các số 31, 32 bạn tự giải quyết bằng 1 biến nào đó.

 

[befaint]

Diễn đàn vừa mất dữ liệu mong Anh chị giúp em ạ

ủa, bài này hôm trước bạn được trả lời rồi mà...

 

[lightd]

ủa, bài này hôm trước bạn được trả lời rồi mà...

Bài trước ,diễn đàn mình bị mất dữ liệu hay sao á, mình vào link cũ die mất, bạn cho mình xin lại đoạn code đó với nha. cảm ơn bạn rất nhiều

 

[lightd]

Up cho anh em giúp nào hehe

 

[befaint]

Bài trước ,diễn đàn mình bị mất dữ liệu hay sao á, mình vào link cũ die mất, bạn cho mình xin lại đoạn code đó với nha. cảm ơn bạn rất nhiều

Vẫn là cái hình hôm trước.

 

[lightd]

hình bị che mất bên phải bạn giúp mình làm rõ với ạ after:= .Range....,.Copy .Range("A" & r) cảm ơn bạn

Vẫn là cái hình hôm trước.

View attachment 169455