• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İşlem yapılmayan yerlerin takibi

Katılım
14 Şubat 2015
Mesajlar
10
Excel Vers. ve Dili
excel 2003
Gönderen Göndermeyen
Çankırı 5000,00
Ankara Ankara
Samsun 2000,00
Trabzon 300,00
Rize Rize
Konya 2000,00
Sivas 1000,00

İşlem yapılmayan illerin isimleri Göndermeyen kısmına otomatik yazılmasını istiyorum.
Bilgi göndermeyen yerlerin takibini kolaylaştırmak adına.
Nasıl yapabiliriz. Teşekkürler.
 
Tablonuz bu haliyle anlaşılmıyor.
Örnek bir tablo oluşturarak harici dosya yükleme sitelerine yükleyerek link paylaşırmısınız
 
Şuan yükleme yapamıyorum. Örnek Olarak; İşlem yapılmayan Ankara Rize Mardin illeri Göndermeyen illerin Altına sırayla yazılmasını istiyorum. İşlem yapılanlar yazılmasın.
İLLER-------İSTENEN TUTAR
ÇANKIRI----5000,00 TL
ANKARA----
SAMSUN----2000,00
TRABZON-----300,00
RİZE-----------
KONYA-------2000,00
SİVAS-------1000,00
MARDİN----

GÖNDERMEYEN İLLER
1.ANKARA
2.RİZE
3.MARDİN
 
230933
Resimdeki gibi bir tablo olduğunu varsayarsak.
Sayfaya bir şekil ekleyip, aşağıdaki makroyu eklenen şekle atayıp kullanabilirsiniz.
Sayfa ismi olarak kullanılan Sheets("Sayfa1") bölümündeki Sayfa1 ismini, ilgili sayfa ismi ile değiştiriniz.
Sütun sıralaması farklı ise kod içindeki sütun başlıklarını değiştiriniz.
Kod:
Sub sirala()
Application.ScreenUpdating = False
Dim s1 As Worksheet, son As Long, son2 As Long, x As Long
Set s1 = Sheets("Sayfa1")

son = s1.Range("A" & Rows.Count).End(3).Row
s1.Range("D2:D" & son).Clear

For x = 2 To son
    If s1.Cells(x, "B").Value = "" Then
        son2 = s1.Range("D" & Rows.Count).End(3).Row + 1
        s1.Cells(son2, "D").Value = s1.Cells(x, "A").Value
    End If
Next
son2 = s1.Range("D" & Rows.Count).End(3).Row
Set s1 = Nothing: son = 0: son2 = 0: x = 0
Application.ScreenUpdating = True
End Sub
 
Son düzenleme:
Şuan yükleme yapamıyorum. Örnek Olarak; İşlem yapılmayan Ankara Rize Mardin illeri Göndermeyen illerin Altına sırayla yazılmasını istiyorum. İşlem yapılanlar yazılmasın.
İLLER-------İSTENEN TUTAR
ÇANKIRI----5000,00 TL
ANKARA----
SAMSUN----2000,00
TRABZON-----300,00
RİZE-----------
KONYA-------2000,00
SİVAS-------1000,00
MARDİN----

GÖNDERMEYEN İLLER
1.ANKARA
2.RİZE
3.MARDİN

illere tutar girilene kadar gönderilmeyen iller kategorisinde görüntülensin. illere tutar girildikten sonra "göndermeye iller" kategorisinden kaldırılsın şeklinde yapılması mümkün müdür.
 
Merhaba
3. sütuna =C3<>0 yazıp sütun boyunca kopyalayın.
Sonra 3 sütunu seçip 2Büyükten Küçüğe Sıralayın'
Çıkan ekranda seçimi genişlet dediğinizde ek resimdeki gibi tablo elde edersiniz.

230938
 
Formülle çözüm alternatifiniz olsun

Tablonuzu aşağıdaki gibi varsaydım
D2 hücresindeki formül dizi formülüdür. (Ctrl+Shift+Enter ile giriniz)
=EĞERHATA(İNDİS($A$2:$A$21;KÜÇÜK(EĞER($B$2:$B$21=0;SATIR($A$2:$A$21)-1;"");SATIR(A1)));"")

Formülü aşağıya doğru liste satır sayınız kadar çoğaltabilirsiniz.

230939
 
Formülle çözüm alternatifiniz olsun

Tablonuzu aşağıdaki gibi varsaydım
D2 hücresindeki formül dizi formülüdür. (Ctrl+Shift+Enter ile giriniz)
=EĞERHATA(İNDİS($A$2:$A$21;KÜÇÜK(EĞER($B$2:$B$21=0;SATIR($A$2:$A$21)-1;"");SATIR(A1)));"")

Formülü aşağıya doğru liste satır sayınız kadar çoğaltabilirsiniz.

Ekli dosyayı görüntüle 230939
Çok teşekkür ederim. Elinize sağlık.
 
Geri
Üst