commandbutton1 de verilen görevden sonra userform1 i çalıştırması

[olymposss]

saygıdeğer arkadaşlar herkese iyi akşamlar

commandbutton a atadığım bir görev sonunda istediğim userformu açmasını istiyorum. aşağıdaki gibi denedim ama hata veriyor.

Private Sub CommandButton2_Click()
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("B2").Value = "" Then
Range("B2").Value = TextBox4.Value
Else
ActiveCell.Value = TextBox4.Value
End If
userform1.show
end sub

yardımlarınız için şimdiden teşekkürler:yardim:

 

[Levent Menteşoğlu]

Verdiği hata mesajı nedir?

 

[Orion1]

commandbutton a atadığım bir görev sonunda istediğim userformu açmasını istiyorum. aşağıdaki gibi denedim ama hata veriyor.


Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
yardımlarınız için şimdiden teşekkürler:yardim:

Merhaba.
Sanırım 256 sütun dolu o sebepten dolayı taşma yapıyor.Ve hata veriyor olabilir.Son sütuna bir bakarmısınız.Son sütun dolu ise son sütundaki veriyi silip öyle çalıştırınız.Buradan gördüğüm kadarı ile öyle anladım .Kolay gelsin.

 

[olymposss]

az once başka bir form adı verdim çalıştı

arkadaşlar kolay gelsin

hata mesajını bulamadım ama kullandığım sayfada 65536. satır dolu. acaba bundan olabilirmi?
bi de normalde komutun sonuna userform1.show dendiği zaman açması gerekmezmi?(end sub tan önce)

teşekkürler.:???: