elektronik tablo içerisine veri gönderme sorunu

[udentr2002]

Merhaba arkadaşlar;
Şöyle bir sorunum var ne denediysem çözemedim.

Aşağıdaki kod ile "Planlama" adlı sayfaya verileri gönderiyorum. Planlama sayfasında 5 satırda elektronik tablonun sütun başlığı var, 6. satırda da verilerin gireceği ilk satır var ve 6. satırda elektronik tablonun başladığı ilk satır.
Ama kodlar çalışırken 8. satırdan başlayıp yazıyor ve bu defada girilen veriler elektronik tablo içine yazılmamış gibi duruyor. ne yapabilirim çıkamadım işin içinden

a = ws.[a65536].End(3).Row + 1 bu kodla değiştirerek denedim ama bu defada kodlar anlamlı olmuyor.

Private Sub CommandButton9_Click()
 
If ComboBox1.text = "" Then
MsgBox ("Ürün Adını Girmediniz."), vbCritical, ("DİKKAT !!!")
Exit Sub
ElseIf TextBox41.text = "" Then
MsgBox ("Üretilecek Kutu Sayısını Girmediniz."), vbCritical, ("DİKKAT !!!")
Exit Sub
ElseIf ComboBox24.text = "" Then
MsgBox ("Teslimat Ayını Girmediniz."), vbCritical, ("DİKKAT !!!")
Exit Sub
End If
 
 
 On Error Resume Next
    Dim ws As Worksheet
    Set ws = Sheets("Planlama")

    'a = s1.[b65536].End(3).row + 1
    a = ws.[a65536].End(3).Row + 1

    deg = TextBox41.Value
    deg = deg * 1
    'ws.Range("T1") = Format(deg, "#0")

    For i = 1 To ListView1.ListItems.Count
        
        a = a + 1
        
        ws.Cells(a, 1) = ListView1.ListItems(i).ListSubItems(1)
        ws.Cells(a, 2) = CDbl(ListView1.ListItems(i).ListSubItems(2))
        ws.Cells(a, 3) = ListView1.ListItems(i).ListSubItems(3)
        ws.Cells(a, 4) = CDbl(ListView1.ListItems(i).ListSubItems(4))
        ws.Cells(a, 5) = CDbl(ListView1.ListItems(i).ListSubItems(5))
        ws.Cells(a, 6) = CDbl(ListView1.ListItems(i).ListSubItems(6))
        ws.Cells(a, 7) = ListView1.ListItems(i).ListSubItems(7)
        ws.Cells(a, 8) = CDbl(ListView1.ListItems(i).ListSubItems(8))
        ws.Cells(a, 9) = ListView1.ListItems(i).ListSubItems(9)
        'ws.Cells(a, 10) = CDbl(ListView1.ListItems(i).ListSubItems(10))
        'ws.Cells(a, 11) = CDbl(ListView1.ListItems(i).ListSubItems(11))
        ws.Cells(a, 12) = ListView1.ListItems(i).ListSubItems(12)
        ws.Cells(a, 13) = ListView1.ListItems(i).ListSubItems(13)
        ws.Cells(a, 14) = ListView1.ListItems(i).ListSubItems(14)
        ws.Cells(a, 15) = CDbl(ListView1.ListItems(i).ListSubItems(15))
        ws.Cells(a, 16) = ListView1.ListItems(i).ListSubItems(16)
        ws.Cells(a, 17) = ListView1.ListItems(i).ListSubItems(17)
        ws.Cells(a, 18) = ListView1.ListItems(i).ListSubItems(18)
        ws.Cells(a, 19) = ListView1.ListItems(i).ListSubItems(19)
        
         ws.Cells(a, 22) = deg
         
        'ws.Cells(a, 20).Value = deg * CDbl(ListView1.ListItems(i).ListSubItems(5))
        
        
            
        ws.Cells(a, 24) = ComboBox24.Value
        'ws.Cells(a, 23) = ComboBox25.Value
    
    Next i
    
    Call listelefason
End Sub

 

[Biolightant]

Merhaba,
For Next döngüsünde hatalı olarak a=a+1 ilk başa koymuşsunuz
veri girildikten sonra alt satıra geçin

    ' ilk verinin yazılacagı satır burada belirtmişsiniz
    a = ws.[a65536].End(3).Row + 1
   
    For i = 1 To ListView1.ListItems.Count
       
        '*****************
        ' a satırından itibaren diğer kodlarınız burada çalışacak veriler işlenecek
        ' Veriler yazıldı bitti
        ' *********************
       
        ' bir alt satıra geç
        a = a + 1
    Next i

 

[udentr2002]

Merhaba,
For Next döngüsünde hatalı olarak a=a+1 ilk başa koymuşsunuz
veri girildikten sonra alt satıra geçin

    ' ilk verinin yazılacagı satır burada belirtmişsiniz
    a = ws.[a65536].End(3).Row + 1
  
    For i = 1 To ListView1.ListItems.Count
      
        '*****************
        ' a satırından itibaren diğer kodlarınız burada çalışacak veriler işlenecek
        ' Veriler yazıldı bitti
        ' *********************
      
        ' bir alt satıra geç
        a = a + 1
    Next i

Hocam çok teşekkür ederim.
Şöyle bir sorun oluşuyor. 8. satırdan başlamıyor ama 6. satırdan da başlamıyor 7. satırdan başlıyor bu defa.
Ama benim elektronik tablom 6. satırdan başladığı için veriler elektronik tablo içersinde olmuyor yine.
Bu neden olabiliyor?

Saygılarımla

 

[Biolightant]

verileriniz A6 hücresinden itibaren yazılacak di mi ?

 

[udentr2002]

verileriniz A6 hücresinden itibaren yazılacak di mi ?

Evet hocam;
ve a5 hücresinde de elektronik tablo başlığı var

 

[Biolightant]

dosyanız bilmediğimden kesin emin olmamakla birlikte
a = ws.[a65536].End(3).Row + 1 +1 i kaldırıp deneyiniz.