Textbox Data add i

ساخت وبلاگ

آخرین مطالب

امکانات وب

Vote count: 0

this macro add data in blank active cell but i need data add in last blank row what is correct in given macro

Sub FillDateSenderFrom()
For i = 1 To 3
If Controls("TextBox" & i) <> "" Then
If i = 1 Then
Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, i - 1).Select
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
Else
Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
End If
End If
Next i
End Sub
edited 39 secs ago
Vityata
asked 5 mins ago
kalpesh patel

...
نویسنده : استخدام کار بازدید : 32 تاريخ : پنجشنبه 30 فروردين 1397 ساعت: 15:58

close
تبلیغات در اینترنت