Çözüldü 424 hatasi Do Until Loop

[CAKIR06]

Merhaba arkadaslar,

Ben mi yanlis goruyorum yoksa yanlis mi yapiyorum ben gunlerdir herzaman yaptigim Do until dongusunu gideremedim hatayi, birileri benimle birlikte bakabilir mi?

 

[askan]

Sayfa değişken tanımları gözükmüyor kodda. Shdb ve shentry sayfaları

 

[CAKIR06]

Sayfa değişken tanımları gözükmüyor kodda. Shdb ve shentry sayfaları

Geri donusumunuz icin tesekkur ederim lakin ben bir sonraki dongude shDB yaziyor ve oraya aktar diye yazdim

 

[Refaz]

Dim yazan yerin altına slttakini ekleyin kısaca.Diğeri içinde aynı uygulayın.

Set shDB= worksheets("DB")

 

[CAKIR06]

Dim yazan yerin altına slttakini ekleyin kısaca.Diğeri içinde aynı uygulayın.

Set shDB= worksheets("DB")

Ben denedim olmadi istersen gondereyim bi bak galiba DB tablosunu tanimamiyor diye dusunuyorum bide slttakini nerede onu anlamadim

 

[Refaz]

Eğer en üstte option explict gibi birşey varsa dim ile tanımlamak gerek.
Dim k,i as integer bunun altına dim shDB as wofksheet yazın onunda altına set yazdığımı ekleyin.
Diğer sayfayıda aynı tanımlayın.

Benim zamanım yok dosya eklerseniz ilgiöenen olır.

 

[Patron]

Arkadaşlar izah etmiş ama tekrardan zarar gelmez.
Aşağıda belirttiğim ortada ayrık duran 4 satır kodu kendi kodlarınızda aynı konuma ekleyin.
Sheets("DATA") ve Sheets("DB") yazan yerler başka sayfalar olması gerekiyorsa kendinize göre değiştirin.
HTML:

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