açılan textbox a satır aralığı belirtme

[yetiskol]

Arkadaşlar bir makroyu çalıştırdıktan sonra diğer makronun çalışabilmesi için makroyu çalıştır dedğimde 2 textbox çıkmasını ilk satır ve son satır şelinde çıkmasını Örneğin A1 - A305 gibi tamam dedğimde sadece bu satırda makronun işlem gormesini istiyorum nasıl yapabilirim.
Çok acil yardım.

 

[fedeal]

örnek dosya olmalı anlattıgınızı içine açıklamalısınız örnegin 2 textbox çıkacak derken kasıt ne userform üzerindemi? yada ilk satır ve son satır neye göre? son dolu satırmı?

 

[yetiskol]

acılan kutu

örnek dosya olmalı anlattıgınızı içine açıklamalısınız örnegin 2 textbox çıkacak derken kasıt ne userform üzerindemi? yada ilk satır ve son satır neye göre? son dolu satırmı?

stım

anlatmak istediğimi ek dosya içerisinde anlatmaya calı
stım

 

[yetiskol]

gondermiş olduğum dosya içerisindeki makro1 düzeleme kısmında
For i = 2 To 400 ( bu kısım yerine acılan pencere istiyorum ve yazdığım değerler buraya yazmalı)
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i
End Sub

 

[fedeal]

Şimdi anladım galiba

Sub Makro1()
S = InputBox("BAŞLANGIÇ DEĞERİNİ GİRİN", "EXCEL.WEB.TR","1")
If S = "" Or S < 0 Then Exit Sub
C = InputBox("BİTİŞ DEĞERİNİ GİRİN", "EXCEL.WEB.TR","305")
If C = "" Or C < 0 Then Exit Sub
    For i = S To C
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i
End Sub

deneyin umarım istediğiniz budur.

 

[yetiskol]

acılan kutu

Şimdi anladım galiba

Sub Makro1()
S = InputBox("BAŞLANGIÇ DEĞERİNİ GİRİN", "EXCEL.WEB.TR","1")
If S = "" Or S < 0 Then Exit Sub
C = InputBox("BİTİŞ DEĞERİNİ GİRİN", "EXCEL.WEB.TR","305")
If C = "" Or C < 0 Then Exit Sub
    For i = S To C
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i
End Sub

deneyin umarım istediğiniz budur.

eline sağlık hocam tam istediğim gibi olmuş.