جايگزيني مقدار در رديف خاص ازآخرين سلول خالي

[khorasan66]

به عنوان مثال مقدار

Sheet1.Range("a3") = 100
Sheet1.Range("U3") = 20
حالا با این دستور می توان مقدار 100 را در آخرین سلول خالی ردیف 20 شیت 2 جایگزین نمود

Sub gggg()
Sheet1.Range("A3").Copy
Sheets("02").Select
Sheet2.Cells(Sheet1.Range("U3"), 1).Select
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
With Selection
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
ولی نیاز به دستوری دارم که بدون فرمان copy جایگزین شود مثل دستور زیر که ناقص است


Sheet2.Cells(Sheet1.Range("U3"), 1),.End(xlToRight).Offset(0, 1) = Sheet1.Range("A1").Value

لطفا دستور فوق را اصلاح کنید !

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.












در دو حالت اینکار انجام میشود



حالت اول






که طبق درخواست خودتان است









حالت دوم






با تغییر یکی یا هردو متغییر یعنی خانه a و u محل و عدد تغییر میکند



مثلا عدد 20 را به 22 تغییر و یا عدد 100 را به 800 تغییر دهید و دکمه شماره 2 را بزنید






با تشکر میر