formdan excel sayfasına kayıt

[ccumhur]

arkadaşlar formdan kayıt yaptıracaz ama hücreler birleştiirldiği için galiba sorun olcak fikri olan varmı teşekür

 

[Mahmut Bayram]

syn ccumhur, bey out of memory hatası veriyor sizden mi bizden mi?

 

[Levent Menteşoğlu]

Ne gibi bir sorun olduğunu açıklarmısınız?

 

[ccumhur]

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 0).Value = ListBox1.Text

ile kayıtın yapıldığı hücre birleştirilmiş
ücret karşılığı girilen yerde yazlacak yerler birleşritilmiş hücre değil sorun şıkıyor
yazacak hücre bulamıyor

 

[Levent Menteşoğlu]

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = ListBox1.Text

yerine aşağıdaki gibi deneyin.

[vb:1:2de9368e6d]say = WorksheetFunction.CountA([b5:b65536])
Cells(2 * say + 5, 2) = ListBox1.Text
[/vb:1:2de9368e6d]

Not:B5:B65536 arasını öncelikle silerek kodu deneyin.