• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

yapıcı

Yeni Üye
Kullanıcı Bilgileri
Katılım
30 Ağu 2023
Mesajlar
68
Aldığı beğeni
6
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
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.
 

Ekli dosyalar

  • Demo.xlsm
    1.6 MB · Gösterim: 4
Çözüm
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.
Tarihe göre sırala Oylara göre sırala
modüle ekleyip çalıştırın 15 saniye bekletir
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Adnan' Alıntı:
modüle ekleyip çalıştırın 15 saniye bekletir
Genişletmek için tıkla...
Şö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
 
Olumlu oy 0 Negatif oyla
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ı?
 
Olumlu oy 0 Negatif oyla
Hatalı cari nasıl kontrol edilecek ise tarif edersiniz makro yazılır
 
Olumlu oy 0 Negatif oyla
Adnan' Alıntı:
işlemi çok garip yapıyorsunuz. O sütunudaki değeri 0 olanları toptan görseniz daha kolay olmaz mı?
Genişletmek için tıkla...
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ı : )
 
Olumlu oy 0 Negatif oyla
Kolay gelsin
 
Olumlu oy 0 Negatif oyla
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.

11.gif
 
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

  • Demo.xlsm
    1.7 MB · Gösterim: 1
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Yada Hatali Olanlar adında bir sayfa ekleyip kod çalışınca hatalı olanlar oraya aktarılır
Genişletmek için tıkla...
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ı.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

  • Demo 2.xlsm
    1.6 MB · Gösterim: 5
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst