Fatura Kalemlerini VBA Döngüsünde Alt Satırlara Yazma

  • Konuyu başlatan Konuyu başlatan Cengizhan
  • Başlangıç tarihi Başlangıç tarihi

Cengizhan

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
merhaba kodum calısıyor ama hep aynı üst üste yazıyor
son satır kodlarıyla denedim yine olmadı yardım edermisiniz

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap
 
Tarihe göre sırala Oylamaya göre sırala
@Cengizhan
Sorularınızı örnek belge üzerinden sorarsanız daha hızlı netice alınır.

c değişkenine göre döngü kurmuşsunuz ama, döngü içerisinde bu değişkine bağlı, bu değişkenden etkilenen hiçbir şey yok.
29 ney, 50 ney, satır mı sütun mu vs hiçbir şey belli değil.

.
 
Oyla 0 Olumsuz oyla
Verdiğiniz aralık kadar döngü döndürüp, her sonucu 29. satıra yazdırmaktadınız.
Sheets("FATURA").Range("I29").Value = cbStokAdi.Value yerine Sheets("FATURA").Range("I" & C ).Value = cbStokAdi.Value yazarsanız sanırım yeterli olacak.
Diğer kodlar içinde değiştirin.
Tabi yazılan değer nedir ne değildir @Ömer BARAN hocamın dediği gibi belli değil :)
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
Verdiğiniz aralık kadar döngü döndürüp, her sonucu 29. satıra yazdırmaktadınız.
Sheets("FATURA").Range("I29").Value = cbStokAdi.Value yerine Sheets("FATURA").Range("I" & C ).Value = cbStokAdi.Value yazarsanız sanırım yeterli olacak.
Diğer kodlar içinde değiştirin.
Tabi yazılan değer nedir ne değildir @Ömer BARAN hocamın dediği gibi belli değil :)
Genişletmek için tıklayın ...
admin bey haklısınız :) ama yine olmadı hepsine birden yazdırdı tek seferde
ilk kayıt
I29
AF29
AJ29
AN29
ikinci kayıt
I30
AF30
AJ30
AN30
böyle devam edecek :)
 
Oyla 0 Olumsuz oyla
Cengizhan' Alıntı:
admin bey haklısınız :) ama yine olmadı hepsine birden yazdırdı tek seferde
ilk kayıt
I29
AF29
AJ29
AN29
ikinci kayıt
I30
AF30
AJ30
AN30
böyle devam edecek :)
Genişletmek için tıklayın ...
Verdiğim kod her döngü döndüğünde 29, 30,31, ...50 ye kadar gidecek.
Yani ilk döndüğünde bir satır için Sheets("FATURA").Range("I29").Value = cbStokAdi.Value olacak.
İkinci dönüşünde bir satır için Sheets("FATURA").Range("I30").Value = cbStokAdi.Value olacak.
Sanırım zaten istediğinizde bu.
Dolayısıyla bir sorun yok benim verdiğim kodda.
Bunun dışında da dosyayı görmeden yorum yapmak artık zorlaşıyor.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@Cengizhan
Sorularınızı örnek belge üzerinden sorarsanız daha hızlı netice alınır.
c değişkenine göre döngü kurmuşsunuz ama, döngü içerisinde bu değişkine bağlı, bu değişkenden etkilenen hiçbir şey yok.
Genişletmek için tıklayın ...
Kırmızı renklendirdiğim kısımla ilgili belirsizlik devam ediyor ve hala örnek belge yok.
Döngü içerisindeki kod satırlarında c değişkeninin bir etkisi yok.
Belirtilen hücrelere (sadece bu hücrelere) 50-29+1 defa aynı şeyi yazdır demiş oluyorsunuz.

.
 
Oyla 0 Olumsuz oyla
Bakın verdiğim kodlarda sorun yok.
Sizin döngünüz dönerken C değişkenine 29 ile 50 arasında değerler atar.
Sonrasında sizin belirlediğiniz aşağıdaki değerleri sırayla 29. satırdan itibaren 50. satıra kadar yazar.

cbStokAdi.Value
txtGirisAdet
cbBirim.Value
txtsatisfiyati.Value

Yani 29:50 aralığına hep aynı şeyi yazar...
Farklı bir şeyi yazdırmak istiyorsanız, dosyanın tüm kodlarını ya da dosyayı eklemezseniz boşa kürek çekeriz...
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
Bakın verdiğim kodlarda sorun yok.
Sizin döngünüz dönerken C değişkenine 29 ile 50 arasında değerler atar.
Sonrasında sizin belirlediğiniz aşağıdaki değerleri sırayla 29. satırdan itibaren 50. satıra kadar yazar.

cbStokAdi.Value
txtGirisAdet
cbBirim.Value
txtsatisfiyati.Value

Yani 29:50 aralığına hep aynı şeyi yazar...
Farklı bir şeyi yazdırmak istiyorsanız, dosyanın tüm kodlarını ya da dosyayı eklemezseniz boşa kürek çekeriz...
Genişletmek için tıklayın ...
Teşekkürler PC basına gecince deneyip dönecem size
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst