Çözüldü Sürekli excel vba hatası

[CristianoRonaldo]

İlgili hocalarım
Ben excel dosyasını gizlediğimde userform olarak programı kullanıyorum fakat 1 tıklamada çalışıyorsa program 2. ve diğer tıklamalarda sürekli
Run-time error '380':
Could not set the RowSource property. Invalid property value.
hatası çıkıyor
debug diyorum

UfYakitDuzelt.Show diye üzerinde sarı ikazlı hatayı gösteriyor ama asıl hata sizlerinde bildiği gibi hata dediği yerler

CbListelemeYakit.RowSource = "Sabitler!B1:B3"
CbListelemePetrol.RowSource = "Sabitler!D18"
CbListelemeIslemTuru.RowSource = "Sabitler!A1:A6"

ve

LbAracDetay.ColumnCount = 11
'---------------------------1--2---3-4--5--6--7--8--9--10-11
LbAracDetay.ColumnWidths = "60;60;50;100;60;40;65;60;70;160;20"

Dediğim gibi excel sayfası gizlendiğinde bu kodları hata olarak görüyor bunun çözümü varmı

 

[CacaBey]

Dosyayı paylaşırsanız yardımcı olabilirim.

 

[CristianoRonaldo]

Dosyayı paylaşırsanız yardımcı olabilirim.

Buyrun hocam

 

[Refaz]

Merhaba.

Private Sub UserForm_Initialize() kodundaki CbKasaHareketiIslemTuru.ListIndex = 0 bunu silip alttakini ekleyip deneyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[CristianoRonaldo]

Merhaba.

Private Sub UserForm_Initialize() kodundaki CbKasaHareketiIslemTuru.ListIndex = 0 bunu silip alttakini ekleyip deneyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam
bu sefer kasada hata vermedi ama UfYakitDuzelt formu yine aynı hatayı vermeye devam ediyor

 

[Refaz]

Ordada benzer kod varsa uygulayın.Hata sebebi açılışta listbıx boş geldiği için kod listboxun ilk satırı srçmek istiyordu bundan dolayı hata idi.

 

[CristianoRonaldo]

Ordada benzer kod varsa uygulayın.Hata sebebi açılışta listbıx boş geldiği için kod listboxun ilk satırı srçmek istiyordu bundan dolayı hata idi.

Maalesef hocam olmuyor ya debug çıkıyor ya da donuyor

 

[Refaz]

Sırasıyla hangi butonlara tıklayınca hata veriyor.
O forumda birde kayıt silmedede hata veriyor çünkü listboxtan seçim yapıldımı koşuluolmadığı için Mach kodunda.

 

[CristianoRonaldo]

HOCAM UfYakitDuzelt userformundaki kod hatalarını düzeltebilirmisiniz çok muallakta kaldım çok çok rica ediyorum hocam

 

[Refaz]

Silme için alttaki kodu deneyin.
Aslında kodların en üstünde Dim Satir, SonSatir, ListeSatiri As Long böyle var normalde Dim Satir as long, SonSatir as long, ListeSatiri As Long böyle olmalıydı.Böyle yapsaydınız If Satir = "" Then yerine If Satir = 0 Then olacaktı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

UFYakitDuzelt formundaki alttaki kodu silin Ev iconuna tıklayınca o çalışıyor ve donuyor ayrıca EvMuhasebe adındaki excel dosyasında bu kodun ne işi var?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[CristianoRonaldo]

Silme için alttaki kodu deneyin.
Aslında kodların en üstünde Dim Satir, SonSatir, ListeSatiri As Long böyle var normalde Dim Satir as long, SonSatir as long, ListeSatiri As Long böyle olmalıydı.Böyle yapsaydınız If Satir = "" Then yerine If Satir = 0 Then olacaktı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Silme alanı çok güzel oldu hocam çok teşekkür ediyorum
Birde diğer soruna çözüm bulabilirmisiniz hocam acaba neden sürekli debug hatası veriyor veya donuyor

 

[Refaz]

acaba neden sürekli debug hatası veriyor veya donuyor

Önceki mesajda yazmıştım alttaki kodları silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[CristianoRonaldo]

UFYakitDuzelt formundaki alttaki kodu silin Ev iconuna tıklayınca o çalışıyor ve donuyor ayrıca EvMuhasebe adındaki excel dosyasında bu kodun ne işi var?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam ben daha çok sayfa koyacağımdan dolayı fazla mg yüksek olmasın deyince hep ek sayfadan verileri toplayım ordan çekeyim dedim UfKasa sorunsuz çalışıyor aynı onun gibi yapmaya çalışıyorum ama ne hikmetse UFYakitDuzelt i düzeltemedim hocam

 

[CristianoRonaldo]

Önceki mesajda yazmıştım alttaki kodları silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

evet düzeldi hocam hiç debug hatası gelmiyor peki otomatik kaydetme nasıl olacak hocam

 

[Refaz]

evet düzeldi hocam hiç debug hatası gelmiyor peki otomatik kaydetme nasıl olacak hocam

Mesela bu kodu anaformdaki kapat butonuna ekleyin unload me den sonra alttaki kodu ekleyin yanlış yazmadıysam.

thisworkbook.Close savechanges:=True

 

[CristianoRonaldo]

Mesela bu kodu anaformdaki kapat butonuna ekleyin unload me den sonra alttaki kodu ekleyin yanlış yazmadıysam.

thisworkbook.Close savechanges:=True

ÇÖZÜLDÜÜÜÜÜ ÇÖZÜLDÜÜÜÜÜÜÜ
ÇOOOOOOOOK TEŞEKKÜR EDİYORUMÖ REFAZ HOCAMMMMM

 

[Refaz]

Rica ederim
Close değilde
Thisworkbook.save olsa belki daha mantıklı olur sanki çünkü yanılmıyorsam application.quit vardı koda bu zaten kspatıyordu.

 

[CristianoRonaldo]

Rica ederim
Close değilde
Thisworkbook.save olsa belki daha mantıklı olur sanki çünkü yanılmıyorsam application.quit vardı koda bu zaten kspatıyordu.

TAMAMDIR HOCAM