• DİKKAT

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

Sadece Dolu Satırları Hemen Yanındaki Sütuna Lİsteleme

Merhaba,

Bu şekilde deneyin.

Kod: 
Sub DoluAktar()
 
    Dim sat As Long, i As Long
 
    Range("D5:D" & Rows.Count).ClearContents
 
    sat = 5
    For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row
        If Cells(i, "C") <> "" Then
            Cells(sat, "D") = Cells(i, "C")
            sat = sat + 1
        End If
    Next i
 
End Sub
Dosya eklerken veri düzenini daha iyi yansıtmaya özen göstermenizi ve sorunuzu sadece dosya içerisinde değil mesaj içerinde de yazmaya özen göstermenizi rica ederim.

Boş hücrelerde formül var dediniz, dolu hücrelerde formül yok mu? Eğer bu verileri formül ile buluyorsanız formüle gerek kalmadan da bu aktarımı yapabilir yada sadece formül ile istediğiniz düzene sokabilirsiniz.

Bunları bilebilseydik daha uygun çözüm önerisinde bulunabilirdik. Dosyadaki düzeni vurgulamamdaki sebeplerden biri de buydu.

.
 
Hocam burada büyük bir bölünü forumdaki değerli bir hocamızın yaptığı programa ben de köy toplamı diye bir sayfa ekledim. Bu sayfanın en sonunda her türden ayrı ayrı olmak üzere hiç yardım gitmeyen köylerin adını bulmaya çalıştım. Çok anlamadğım için uzunca bir yöntem oldu. Sayfanın sonunda Z AB AD AF AH AJ AL sütüunlarına bu köyleri yazdırdım. Ama arada boşluklar var.
Bu listeyi boşluksuz olarak almamız lazım. Başka bir yöntem varsa o da olabilir. Birde bu programa tarih bazında sorgulama ekleyebilir miyiz?
 

Ekli dosyalar

Eklediğiniz dosyaları açamıyorum. Birde dosyanın tamamını eklemenize gerek yok, dosyanın yapısını bozmadan içeriğini özetleyen sade bir dosya eklerseniz daha anlaşılır olacaktır.
 
Ömer' Alıntı:
Eklediğiniz dosyaları açamıyorum. Birde dosyanın tamamını eklemenize gerek yok, dosyanın yapısını bozmadan içeriğini özetleyen sade bir dosya eklerseniz daha anlaşılır olacaktır.
Genişletmek için tıkla ...

Ömer Bey Ben yeni indirdim denedim. Dosya Çalışıyor. Dosyanın bir kısmını gönderemedim. İkisi toplam 600 kb falan.
 
hilmi0707' Alıntı:
Ömer Bey Ben yeni indirdim denedim. Dosya Çalışıyor. Dosyanın bir kısmını gönderemedim. İkisi toplam 600 kb falan.
Genişletmek için tıkla ...

Merhaba
Sizin dosyaları indirdim bende çalıştıramadım problem var. Tekrardan eklemeyi deneyin. Olmazsa bir upload sitesine yükleyin buraya link atın ordan bakalım
 
hilmi0707' Alıntı:
Lİnk Veriyorum Hocam

http://hotfile.com/dl/133871392/7810cb2/Erci_Yardm.xls.html

Sizleri de çok yordum. Kusura bakmayın.
Genişletmek için tıkla ...

Y ve Z sütunları için formüllleri yazıyorum, siz ona göre diğer sütunlarınkini düzenlersiniz.

Y3 hücresine aşağıdaki formülü yazarak alt satırlara kopyalayın.

Kod: 
=EĞER(EĞERSAY(F4:H4;0)=3;MAK($Y$2:Y2)+1;"")

Z3 hücresine aşağıdaki formülü yazarak alt satırlara kopyalayın.

Kod: 
=EĞER(SATIRSAY($Z$3:Z3)>BAĞ_DEĞ_SAY($Y$3:$Y$206);""
 ;İNDİS(B:B;KAÇINCI(SATIRSAY($Z$3:Z3);Y:Y;0)))

.
 
Ömer' Alıntı:
Y ve Z sütunları için formüllleri yazıyorum, siz ona göre diğer sütunlarınkini düzenlersiniz.

Y3 hücresine aşağıdaki formülü yazarak alt satırlara kopyalayın.

Kod: 
=EĞER(EĞERSAY(F4:H4;0)=3;MAK($Y$2:Y2)+1;"")

Z3 hücresine aşağıdaki formülü yazarak alt satırlara kopyalayın.

Kod: 
=EĞER(SATIRSAY($Z$3:Z3)>BAĞ_DEĞ_SAY($Y$3:$Y$206);""
 ;İNDİS(B:B;KAÇINCI(SATIRSAY($Z$3:Z3);Y:Y;0)))

.
Genişletmek için tıkla ...


Teşekkürler Ömer hocam. Tarih bazında sıralama konusunda yardımcı olabilecekmisiniz. Seçtiğimiz iki tarih arasında hangi köye ne gitmiş. Her iki tarih de aynı olursa sadece o gün ne gitmiş. Teşekkürler...
 
hilmi0707' Alıntı:
Teşekkürler Ömer hocam. Tarih bazında sıralama konusunda yardımcı olabilecekmisiniz. Seçtiğimiz iki tarih arasında hangi köye ne gitmiş. Her iki tarih de aynı olursa sadece o gün ne gitmiş. Teşekkürler...
Genişletmek için tıkla ...

Hangi sayfada raporlama olacak. Sorularınızı açıklayıcı sormaya özen göstermenizi rica ederim.

.
 
hilmi0707' Alıntı:
Ömer hocam ilk giriş sayfasındaki veriler baz alınarak "yardım bazında rapor" sayfası gibi yeni bir sayfada iki tarih seçip liste alacağız.
Teşekkür ederim...
Dosyanın son halini tekrar yüklüyorum.

Link: http://hotfile.com/dl/133935175/2ae48ea/Erci_Yardm.xls.html

Şifre : 1111
Genişletmek için tıkla ...

Değişiklikleri yazıyorum, siz tablonuza uyarlarsınız.

* Yardım Bazında Rapor sayfsında F2 hücresine başlangıç tarihini, G2 hücresine de Bitiş tarihini yazın.

* İlk_Giriş sayfasındaki BK4 hücresindeki formülü aşağıdakiyle değiştirerek alt satırlara kopyalayınız.

Kod: 
=EĞER(VE(ESAYIYSA(BJ4);BJ4>='Yardım Bazında Rapor'!$F$2;BJ4<=
 'Yardım Bazında Rapor'!$G$2);EĞER(İNDİS($A:$BF;SATIR();
  KAÇINCI(BK$3;$A$2:$BF$2;0))=0;"";SATIR());"")

Bu işlemden sonra istediğiniz olacatır.

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst