İş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.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Tablonuz bu haliyle anlaşılmıyor.
Örnek bir tablo oluşturarak harici dosya yükleme sitelerine yükleyerek link paylaşırmısınız
 
Katılım
14 Şubat 2015
Mesajlar
10
Excel Vers. ve Dili
excel 2003
Ş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
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
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:
Katılım
14 Şubat 2015
Mesajlar
10
Excel Vers. ve Dili
excel 2003
Ş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.
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
 
Katılım
14 Şubat 2015
Mesajlar
10
Excel Vers. ve Dili
excel 2003
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.
 
Üst