• DİKKAT

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

Soru Makro ile Satır gizleme ve Grafiğe Veri Çektirme

B

Baturfurkan

Katılım
6 Ağustos 2017
Mesajlar
98
Excel Vers. ve Dili
2010
İyi çalışmalar. Benim 3 konuda yardıma ihtiyacım var.
1- "İl Emn. Müd. İcmal" isimli sayfamda makroya tıkladığımda yanında veri olmayan satırların gizlenmesini istiyorum. (Veri girişi direk yapılmamıştır formül ile çektiriliyor.)
2- "Grafik Kaynağı" isimli sayfamdaki makroya tıkladığımda "İl Emn. Müd. İcmal" verileri ve suç adlarını kopyalayıp kendi sayfasına yapıştırmalı ve büyükten küçüğe sıralamalı. (Sadece veri olan satırları almalı ve zaten 1. maddedeki makro veri olmayan sütunları gizlediği için alamayacak. Birde 6, 24, 45, 63, 79 ,91, 121. satırdaki gri tabanla yazılmış Suç Başlıklarını almayacak, sadece suçları alacak.)
3. "Grafik" isimli sayfadaki makroya tıkladığımda "Grafik Kaynağı" isimli sayfadan ilk başından son veri alınmış kısma kadar seçip veri kaynağı olarak belirleyecek. (Suçlar sürekli değişeceği için standart satıra bağlamak yerine dolu hücreleri kendi bulup seçmeli) Bu konularda zaman ayırıp yardımcı olabilirseniz çok mutlu olurum. Anlam karmaşası yaşanan yerler varsa tekrar açıklamaya çalışırım. İyi Akşamlar
İlgili Dosya
 
Grafiği Verilerin olduğu sayfada hazırlayın, sonra kopyalayıp; Grafik göstereceğiniz sayfaya yapıştırın.
Boyut vb. düzeltmeleri bu sayfada yapabilirsiniz.
 
turist' Alıntı:
Grafiği Verilerin olduğu sayfada hazırlayın, sonra kopyalayıp; Grafik göstereceğiniz sayfaya yapıştırın.
Boyut vb. düzeltmeleri bu sayfada yapabilirsiniz.
Genişletmek için tıkla ...
Teşekkür ederim, söylediğiniz şekilde çözdüm. Bir şey danışmak istiyorum. Belirli tarihler arasında veri çekmem gerekecek. Aklıma her gün için bi sayfa oluşturup tarih aralığını seçtiğimde, ilgili tarihler arasındaki sayfaları toplayıp çıktı sayfasına aktarmak geldi. Daha çalışmaya başlamadan bi danışmak istedim daha kolay tavsşye edeceğiniz bi yol var mı?
 
Tavsiyem:
Bu tür çalışmalarda; mümkünse, Veri Girişleri tek bir sayfada ve "Veri Tabanı" oluşturacak şekilde yapılırsa daha verimli sonuçlar almak mümkün olmaktadır.
Düşünülerek , ihtiyaçlara uygun ve yeterli bilgilerle hazırlanmış bir "Veri Tabanı" sayfası ilerde oluşturmak istediğiniz bütün çalışmalarda sizin için bir "Kaynak" olacaktır.
Her türlü "Rapor" işlemlerinizi de yine bu "Veri Tabanı" sayfasından yapabilir olacaksınız.
İyi çalışmalar.
 
turist' Alıntı:
Tavsiyem:
Bu tür çalışmalarda; mümkünse, Veri Girişleri tek bir sayfada ve "Veri Tabanı" oluşturacak şekilde yapılırsa daha verimli sonuçlar almak mümkün olmaktadır.
Düşünülerek , ihtiyaçlara uygun ve yeterli bilgilerle hazırlanmış bir "Veri Tabanı" sayfası ilerde oluşturmak istediğiniz bütün çalışmalarda sizin için bir "Kaynak" olacaktır.
Her türlü "Rapor" işlemlerinizi de yine bu "Veri Tabanı" sayfasından yapabilir olacaksınız.
İyi çalışmalar.
Genişletmek için tıkla ...
Aklımda bulunduracağım teşekkür ederim
 
turist' Alıntı:
Yeniden düzenlenen dosyanız linktedir.
Dosya Linki
Genişletmek için tıkla ...
Efendim iyi günler. Zamanında yardımcı olup yaptığınız tabloda güncelleme yapmam gerekti. 100 tane olay ekledim. Bu yüzden veri aldığı satır ve sütun numaralarını güncelledim. Yani tek yaptığım şey bu oldu ama bilgisizlikten sanırım güzel kodunuzu bozdum. Ek olarak atıyorum, yardımcı olabilir misiniz acaba? Zamanınız yoksa tarif etseniz ben düzeltmeye çalışsam?DOSYA;
 
Gönderdiğiniz dosya kendinize ait değil miydi?
 
İyi çalışmalar.
 
1.ci kod'daki
Range("A" & x & ":B220").Cut [A1]
For I = 1 To 220
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A220").EntireRow.Hidden = True

Bölümünü:
Range("A" & x & ":B221").Cut [A1]
For I = 1 To 221
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A221").EntireRow.Hidden = True
şeklinde,
2.ci kod'daki

Rows("1:220").EntireRow.Hidden = False
kısmını
Rows("1:221").EntireRow.Hidden = False
şeklinde değiştirip deneyin.
 
turist' Alıntı:
1.ci kod'daki
Range("A" & x & ":B220").Cut [A1]
For I = 1 To 220
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A220").EntireRow.Hidden = True

Bölümünü:
Range("A" & x & ":B221").Cut [A1]
For I = 1 To 221
If Cells(I, 2) = 0 Then x = I: GoTo 20:
Next I
20:
Range("A" & x & ":A221").EntireRow.Hidden = True
şeklinde,
2.ci kod'daki

Rows("1:220").EntireRow.Hidden = False
kısmını
Rows("1:221").EntireRow.Hidden = False
şeklinde değiştirip deneyin.
Genişletmek için tıkla ...
1 saate kadar deneyip size dönüş yaparın, teşekkürler ilgilendiğiniz için
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst