• 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ü Dolu Olan Son Satıra Kadar Yazdırma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
L

lion2577

Yeni Üye
Kullanıcı Bilgileri
Katılım
17 Ağu 2021
Mesajlar
210
Aldığı beğeni
15
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Arkadaşlar merhaba; aşağıdaki 2 kod için yardım talep ediyoruz. Yardımcı olabilir misiniz lütfen. Şimdiden çok teşekkür ederiz.

1- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu alınan veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.

Kod:

If Sheets("Rapor").Cells(x, y) = "Ürün" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If

2- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu veri a/b şeklinde. / çizgisinden önceki veya sonraki veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.
Kod:

If Sheets("Rapor").Cells(x, y) = "Miktar/Adet" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("k & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("k" & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If
 
Tarihe göre sırala Oylara göre sırala
Sayın lion2577 ; sadece kod görünce kurgulayamıyorum. Dosya paylaşırsanız yardımcı olabilirim.
 
Olumlu oy 0 Negatif oyla
ubak' Alıntı:
Sayın lion2577 ; sadece kod görünce kurgulayamıyorum. Dosya paylaşırsanız yardımcı olabilirim.
Genişletmek için tıkla...
Üstat ilginiz için çok teşekkür ederiz. Bu dosyada yapmak istediğimiz;



  • Adı ve soyadı ayırarak yan yana yazdırmak
  • Eğer vergi no varsa diğerlerinde olmadığı için alttaki satırlardaki verileri alıyor bunu önlemek için eğer vergi no varsa Aldığı Ürün ve Miktarı kısımlarına “-“ işaretini koysun
  • Hisse oranını pay payda ayırmak ve sonlarındaki 3 sıfırı silmek
  • Liste noyu listenin sonuna kadar yazdırmak,
  • İl/İlçeyi ayırarak listenin sonuna kadar yazdırmak,
  • Mahalle kısmından “mah” kısaltmasını silerek listenin sonuna kadar yazdırmak,
Tekrar çok teşekkür ederiz.
 

Ekli dosyalar

  • Örnek Dosya.xlsm
    25.1 KB · Gösterim: 11
Olumlu oy 0 Negatif oyla
Biraz önce dosyanızı indirdim. Anlamaya çalışıyorum.
 
Olumlu oy 0 Negatif oyla
Bilgiler sayfası tek kişi verisi midir...
 
Olumlu oy 0 Negatif oyla
BİLGİLER sayfasında ilk satırda şu veri var:
Liste Adı Ürün İl/İlçe Mersin/Anamur Mahalle Yeni Mah
Bu veri BİLGİLER sayfasında 1 sefer mi geçiyor?
 
Olumlu oy 0 Negatif oyla
Sayın lion2577 ;
  • EĞER vergi no varsa diğerlerinde olmadığı için alttaki satırlardaki verileri alıyor bunu önlemek için EĞER vergi no varsa Aldığı Ürün ve Miktarı kısımlarına “-“ işaretini koysun
Genişletmek için tıkla...
Bu kısmı anlamadım. Diğerleri sanıyorum tamam.
Kontrol eder misiniz?
 

Ekli dosyalar

  • Örnek Dosya.xlsm
    27.5 KB · Gösterim: 4
Son düzenleme:
Olumlu oy 0 Negatif oyla
ubak' Alıntı:
Sayın lion2577 ;

Bu kısmı anlamadım. Diğerleri sanıyorum tamam.
Kontrol eder misiniz?
Genişletmek için tıkla...
Üstat emeğinize sağlık. Daha denemedim. Fakat sorunuza açıklama getireyim. Satırda Vergi no varsa yan sütünlarda aldığı ürün miktarı verileri olmuyor. Bu veriler olmadığı için alttaki aldığı ürün ve miktarı verilerini alıyor. Buda hatalı oluyor. Bunu önlemek adına eğer vergi no varsa Aldığı Ürün ve Miktarı kısımlarına “-“ işaretini koysun alttaki verileri almasını önlesin.
 
Olumlu oy 0 Negatif oyla
Kod omurgasını değiştirdim. Bu kodlarda Vergi No ile ilgili bir sorun olmaz. Ancak boş olanlara "-" koymadım.
Siz bir deneme yapın, kalanına bakarız.
 
Olumlu oy 0 Negatif oyla
ubak' Alıntı:
Kod omurgasını değiştirdim. Bu kodlarda Vergi No ile ilgili bir sorun olmaz. Ancak boş olanlara "-" koymadım.
Siz bir deneme yapın, kalanına bakarız.
Genişletmek için tıkla...
Üstad Allah razı olsun inşallah. İyi ki varsınız. Çok sağolun. Sadece boş olanlara - işareti eksik diğerleri tam istediğimiz gibi.
 
Olumlu oy 0 Negatif oyla
Buyurun:
 

Ekli dosyalar

  • Örnek Dosya.xlsm
    28.8 KB · Gösterim: 6
Olumlu oy 0 Negatif oyla
Üstad emeğinize sağlık. Fakat burada örneğin müşteri no: 256 yani yanındaki sütuna yazınca listeye eklemiyor.
 
Olumlu oy 0 Negatif oyla
Veya aşağı sadece müşteri no bilgisi girip diğerlerini girmeyincede listeye aktarım yapmıyor
 
Olumlu oy 0 Negatif oyla
Başa aşağıdaki gibi yazsak listede müşteri noya "-" atmıyor
Vergi NoMüşteri Adı Soyadı
2568​
Ayhan Kutluş
 
Olumlu oy 0 Negatif oyla
lion2577' Alıntı:
Veya aşağı sadece müşteri no bilgisi girip diğerlerini girmeyincede listeye aktarım yapmıyor
Genişletmek için tıkla...
Bilgiler kısmına bir adet veri girince listeye aktarım yapmıyor. Yani en az iki adet veri girilmesi gerekiyor.
Olmuyora örnek:
Müşteri No
103​

Oluyora örnek:
Müşteri NoVergi No
103​
2568​
 
Olumlu oy 0 Negatif oyla
Bir yada iki adet meselesi değil. Ben önce satırda "müşteri adı soyadı" var mı diye kontrol ettirdim ki gereksiz döngülere girmeyelim. Yani bir müşteri varsa muhakkak adı da vardır. Kaynak sayfasındaki satırlarda müşteri adı varsa o satırı işleme alır.
 
Olumlu oy 0 Negatif oyla
Sanıyorum sizin de müşterilerinizin adı vardır. Eğer bu kurgu olmasın diyorsanız 2 satırı silmek yeterli olur. Sıkıntı yok.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst