Kapalı Kitaba Kayıt Hk.

[ibrahim]

Merhaba Hocalarım ve arkadaşlar..
daha evvelden çalışan bu kodum artık çalışmaz oldu

Kod: Tümünü seç

Private Sub BtnSatisEkle_Click()

Dim y As Long
    Application.Workbooks.Open ("C:\Users\Iceberg\Desktop\kapalı excele kayıt\Gun_Sonu.xlsm")
    For y = 2 To 10000
    If Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("A" & y).Value = " " Then Exit For
Next

Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("A" & y).Value = CDate(LblTarih.Caption)
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("B" & y).Value = LblSaat.Caption
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("C" & y).Value = LblFisNo.Caption
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("D" & y).Value = TxtBarkod.Value
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("E" & y).Value = TxtUrunAdi.Value
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("F" & y).Value = LblBirim.Caption
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("G" & y).Value = TxtMiktar.Value
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("H" & y).Value = TxtBirimFiyat.Value
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("I" & y).Value = TxtToplamFiyat.Value
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("J" & y).Value = LblKdv.Caption
Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("K" & y).Value = LblKullanici.Caption
MsgBox "Veri Girişi Başarıyla Tamamlandı", vbInformation, "INFORMATION"
Application.Workbooks("Gun_Sonu").Close SaveChanges:=True

End Sub

Subscript out of range hatası veriyor

Kod: Tümünü seç

 If Application.Workbooks("Gun_Sonu").Sheets("Toplam_Satislar").Range("A" & y).Value = " " Then Exit For

Bu kod sarıya boyanıyor.

denemek için başka yeni programlar yaptım onlarda da sorun aynı.
excel bozuldu diyeceğim ama diğer yaptığım tüm programlar sorunsuz çalışırken bu kod ile olan hata neden olur ?

Bu kod daha sonra yine arıza yaparsa , Acaba kapalı sayfaya kayıt etmek ve oradan okumak için başka nasıl bir yol izleyebilirim ?

[halily]

kodu aşağıdaki gibi düzenleyip dener misiniz?

Kod: Tümünü seç

Dim y As Long
Dim yol As String, sayfaAdi As String
Dim kapaliDosya As Object, veriSayfasi As Object
    
    yol = "C:\Users\Iceberg\Desktop\kapalı excele kayıt\Gun_Sonu.xlsm" '"D:\Desktop\MySQL_Excel\Kaynak.xlsm"
    sayfaAdi = "Toplam_Satislar"
Set kapaliDosya = Application.Workbooks.Open(yol)
Set veriSayfasi = kapaliDosya.Sheets(sayfaAdi)
   
    For y = 2 To 10000
        If veriSayfasi.Range("A" & y).Value = "" Then Exit For
    Next

[ibrahim]

Hay Allah sizden razı olsun Halil bey beni büyük bir yükten kurtardınız.

[halily]

Rica ederim)
Iyi çalışmalar