Satırdaki değer kadar devam etsin

[SadiSerdari]

Satırdaki değer kadar devam etsin (Çözüldü)

Arkadaşlar aşağıdaki kodla verileri veritabanına kaydetme işlemi yapacağım, ancak sütundaki değer kadar döngüyü çalıştırmak istiyorum. Son satır işlemi uygun olmadığı için çözüm üretemedim yardımcı olabilirseniz sevinirim. Teşekkürler.

Sub record_FS()

    Set wrkShtFS = Worksheets("FS")

    kayitNo = wrkShtFS.Cells(17, 3)
    tarih = Format(wrkShtFS.Cells(18, 3), "dd.MM.yyyy")
    mudurluk = wrkShtFS.Cells(17, 6)

    sNo = 0
    'SonSat = wrkShtFS.Cells(Rows.Count, 1).End(xlUp).Row buradaki son satıra kadar işlemi uygun sonucu sağlamıyor

    For srNo = 22 To 46 ' satır belirtmek yerine satırdaki son değere kadar işlem yapması gerekiyor.
        siraNo(sNo) = wrkShtFS.Cells(srNo, 1)
        malzeme(sNo) = wrkShtFS.Cells(srNo, 2)
        miktar(sNo) = wrkShtFS.Cells(srNo, 11)
        birim(sNo) = wrkShtFS.Cells(srNo, 12)
        birimFiyat(sNo) = wrkShtFS.Cells(srNo, 13)
        toplamTutar(sNo) = wrkShtFS.Cells(srNo, 14)
        mensei(sNo) = wrkShtFS.Cells(srNo, 17)

        sqlFytSr = "INSERT INTO dbtablo (kayit_no,tarih,mudurluk,sira_no,malzeme,birim,birim_fiyat,miktar,toplam_tutar,mensei)"
        sqlFytSr = sqlFytSr & "VALUES(" & kayitNo & "," & tarih & "," & mudurluk & "," & siraNo(sNo) & "," & malzeme(sNo) & ","
        sqlFytSr = sqlFytSr & birim(sNo) & "," & birimFiyat(sNo) & "," & miktar(sNo) & "," & toplamTutar(sNo) & "," & mensei(sNo) & ")"

        sNo = sNo + 1
    Next

End Sub

 

[mancubus]

For srNo = 22 To wrkShtFS.Range("A48").End(xlUp).Row

veya

For srNo = 22 To wrkShtFS.Range("A22").End(xlDown).Row

şeklinde olabilir.

 

[SadiSerdari]

Sayın mancubus; Benzer bir metodla çözmüştüm ancak,
For srNo = 22 To wrkShtFS.Range("A22").End(xlDown).Row
sizin yazdığınız kodda işime yaradı. Teşekkürler emeğinize, yüreğinize sağlık.

 

[mancubus]

rica ederim.

yalnız formda veri yoksa kodun çalışmasını engellemek ve uyarı mesajı vermek uygun olur.

örneğin döngünün başına şöyle bir şey eklenebilir.

If wrkShtFS.Range("B22") = "" Then
    MsgBox "Formda Veri Yok"
    Exit Sub
End If