Listviewde değiştir döngüsünde yardım....

[EmirhanG]

Hayırlı akşamlar arkadaşlar. Basit olduğunu sandığım bir hata sanırım ama ....

Private Sub CommandButton2_Click()
With Sheets("sayfa1")
For a = 1 To 13
Cells(GlobalRow, a - 13) = Controls("TextBox" & a)
Next
End With
GlobalRow = Empty
UserForm_Initialize
End Sub

Kırmızı yazan alanda döngü hata veriyor yardımcı olursanız sevinirim....

 

[ASMET67]

GlobalRow =satir sayisi olası lazım.

a - 13= sutun sayisi olması lazım

kodlari ona göre düzeltmeniz lazım.
GlobalRow nedir. bir döngümü?

 

[EmirhanG]

Merhabalar.... Üstad ilgi ve alakanızdan dolayı teşekürler.. Kusuruma bakmayınız lütfen, dün acil çıkmak zorunda kalmıştım...Yanıtınızı gördüm,eğer ilgilenirseniz bir dosya ekledim teşekürler.....

 

[EmirhanG]

güncel.....

 

[ASMET67]

denermisiniz