userform sağa doğru kaydetsin

[aydgur]

İyi, günler! userformda kutucuğa yazdığım ismi anasayfa adlı sayfanın U1 hücresine yazsın,daha sonra tekrar userform u açıp yeni bir isim girdiğimde bu sefer V1 hücresine kaydetsin ( yeni hep 1.satırda yana doğru kaydetsin.

 

[Ayhan Ercan]

Merhaba Sayın aydgur

Kaydet butonuna aşağıdaki kodu yazıp deneyiniz...

Private Sub CommandButton1_Click()
Dim sut As Range
Set sut = Sheets("anasayfa").[u1]
Do While sut <> ""
Set sut = sut.Offset(0, -1)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
End Sub

 

[aydgur]

teşekkür ederim ilkini yazıyor 2.kayıtta
"Set sut = sut.Offset(0, -1)" bu çıkıyor ne yapabilirim?

 

[Mahmut Bayram]

bende bir sorun çıkmadı.
Ayrıca yukarıdaki kodlarda

sut.Offset(0, -1)

-1 ifadesi sol hücreye yazar.
aşağıdaki şekilde değiştirirseniz sağa doğru yazar.

sut.Offset(0, 1)

 

[Ayhan Ercan]

bende bir sorun çıkmadı.
Ayrıca yukarıdaki kodlarda

sut.Offset(0, -1)

-1 ifadesi sol hücreye yazar.
aşağıdaki şekilde değiştirirseniz sağa doğru yazar.

sut.Offset(0, 1)

Mahmutt hocam dikkatiniz için teşekkür ederim.

Soruda U1 sonra V1 denmiş.
Ben V1 i U1 den önce varsaymışım yalnışlıkla bu yüzden offset(0,-1) kullandım.
Dediğiniz doğrudur u1 den sonra V1 ve dolayısıyla sağa doğru ilerleyebilmesi için
Set sut = sut.Offset(0,1) kullanmak gerekir.... k::

 

[aydgur]

şahane oldu,peki :U1 den sonra U2,U3 gibi aşağıya doğru kaydetsin dersem
nasıl değişiklik gerekir.

 

[uyecik]

o zamanda Set sut = sut.Offset(0,1) kısmı
Set sut = sut.Offset(1,0)
şeklinde yapmamız gerekecektir.

 

[aydgur]

Teşekkür ederim..Cevabım geç oldu ama iş dolayısı ile sık sık giremiyorum..