aynı textboxtan farklı yere

[snoktas]

userfomda textboxa yazınca sayfa1 de A1 e bi daha yazınca B1 e diye devam etsin yardımcı olurmusunuz

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.

Private Sub CommandButton1_Click()
SON = WorksheetFunction.CountA([A1:IV1]) + 1
Cells(1, SON) = TextBox1
End Sub