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

[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 را بزنید

با تشکر میر