Çözüldü For Döngüsü Hakkında Yardım Gerekiyor. "Acil"

[yapıcı]

Arkadaşlar Merhaba
Ekte göndermiş olduğum dosyanın "Cari_Hesap" sayfasının "BZ1" Hücresine
"Yeni_Firma_Oluştur" sayfasının "B" sütununda olan firma isimlerini tek tek aynı hücreye
yazdırmak istiyorum.
Yani şunu kastetmek istedim

Kontrolü Başlat butonuna tıkladığımda
BZ1 hücresine ilk firmayı yazdırdı,
10 veya 15 saniye sonra sıradaki firmayı yazdırdı,
sonra diğerini, diğerini........ gibi son satırdaki firmaya kadar.

yardımcı olursanız sevinirim.

 

[Adnan]

modüle ekleyip çalıştırın 15 saniye bekletir
HTML:

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

 

[yapıcı]

Arkadaşım merhaba
İstediğim kısmen oldu tek problem aynı hücreye silip eklemesi lazım
mesela A firmasını ekledi 15sn sonra silinip B firması eklenmesi lazım
ilk başta tam anlatamadım sanırım yada eksik anlatmış olabilirim.

 

[yapıcı]

modüle ekleyip çalıştırın 15 saniye bekletir

Şöyle anlatayım
BZ1 Hücresine yazılan firma ismini d2 hücresine çekiyorum
o firmanın carisini listeliyorum O3 hücresinde değeri 0.00TL olarak görmem gerek
bunu tek tek firmaları seçip yapmak istemediğimden oraya makroyla müdahale etmek istiyorum
o döngü devam ettikçe ben hatalı cari varsa görebileceğim ona göre müdahale edebileceğim

 

[Adnan]

Sayfa44.Range("BZ1") = LTrim(Sayfa44.Range("BZ1") & " " & dz(i, 1) & " ") bunu silin yerine alttakini yazın

Sayfa44.Range("BZ1") =dz(i, 1)

işlemi çok garip yapıyorsunuz. O sütunudaki değeri 0 olanları toptan görseniz daha kolay olmaz mı?

 

[Adnan]

Hatalı cari nasıl kontrol edilecek ise tarif edersiniz makro yazılır

 

[yapıcı]

işlemi çok garip yapıyorsunuz. O sütunudaki değeri 0 olanları toptan görseniz daha kolay olmaz mı?

Maalesef olmaz Arkadaşım
Bu sayfa formüllerle dolu satırlarca ben bu cari hesap doküman
sayfasının makro ile çalışanını yaptım Buradaki amacım bu yapmış olduğum
kodlarda hata var mı yok mu onu sorgulamak O3 hücresi bana 0 değerini veriyorsa
kayıtlarda problem yok eğer farklı bir değer verirse hata var demektir.
Bunun amacı bu kontrolü yapabilmek.
Yoksa devir yaparken cariler hep karışabilir.
Tabi devir işini daha yapamadım o ayrı : )

 

[Adnan]

Kolay gelsin

 

[yapıcı]

Kolay gelsin

Emeğinize sağlık
Teşekkür ederim

 

[Refaz]

Merhaba.
Sadece fikir olması açısından sayfaya bir buton ve listbox eklenip ve butona tıklayınca firmalar listelenir ve listboxa çift tıklayınca bz1 hücresine ilgili firma adı yazılr ve listboxtan o firma silinir.
Böylece kontrol edebilirsiniz tabii userform vs... ilede yapılabilinir belki.

 

[Refaz]

Yada Hatali Olanlar adında bir sayfa ekleyip kod çalışınca hatalı olanlar oraya aktarılır ve ordan listboxa alınır ve çift tıklayınca görürsünüz.

 

[yapıcı]

Yada Hatali Olanlar adında bir sayfa ekleyip kod çalışınca hatalı olanlar oraya aktarılır

Merhaba Refaz
Evet yapmış olduğun uygulamada bir alternatif olabilir ama hatalı olanlarla alakalı olarak düşüncen daha mantıklı. Bütün cariler kontrol edilmez hatalılar edilir buda zaman kazanmamızı sağlayabilir evet çok mantıklı.

 

[Refaz]

Merhaba.
Sayfadaki listboxtta kaymalar felan oluyor.
Onun yerine combobox ta olur sanki bir deneyeyim olursa onuda eklerim.
Dediğim gibi kullanacaksanız eklenen sayfadaki verileri kapatırken vs.. temizleme kodu ekleyebilirsiniz boşuna boyut büyümesin.

 

[yapıcı]

Kullanılır tabi neden kullanılmasın ama
hatalı olarak aldığın veriler o kadar çok değil aslında daha da az olması gerekiyor.
Bel ki 10 belki 15 cari kadar

 

[Refaz]

Comboboxta olmadı örnek olması açısından userform ekledim frm_Hata_Listbox adında.
Ve kapanışında sayfadaki veriler siliniyor.
Birde excelin alt solunda(StatusBar) burda kalan ve firma adlarını gösterttim.
Kısaca gerisi sizde kolay gelsin.

 

[yapıcı]

Emeğin için Teşekkürler.