makroya ekleme

[gedavet]

Option Explicit

Sub GELİR_SAYFALARINI_BİRLEŞTİR()

Dim S1 As Worksheet, SAYFA As Worksheet, SATIR As Integer, SAY As Integer
Dim X As Byte, AYLAR() As Variant

Set S1 = Sheets("YILLIK GELİR")
AYLAR = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")

Application.ScreenUpdating = False

S1.Range("C6:H6005").ClearContents

For X = 0 To 11
Set SAYFA = Sheets(AYLAR(X) & " GELİR")
If S1.Range("C6005") <> "" Then GoTo Son
If SAYFA.Range("C6") = "" Then GoTo Devam
If SAYFA.Range("C505") <> "" Then
SATIR = S1.Cells(6006, "D").End(3).Offset(0, -1).Row
If (SATIR - 5 + 500) > 6000 Then GoTo Son
S1.Range("C6:H" & SATIR + 500).Value = SAYFA.Range("C6:H505").Value
Else
SATIR = S1.Cells(6006, "D").End(3).Offset(0, -1).Row
SAY = SAYFA.Range("D506").End(3).Row - 5
If (SATIR - 5 + SAY) > 6000 Then GoTo Son
S1.Range("C" & SATIR + 1 & ":H" & SATIR + SAY).Value = SAYFA.Range("C6:H" & SAYFA.Range("D506").End(3).Row).Value
End If
Devam: Next

Set S1 = Nothing
Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Exit Sub
Son:
Set S1 = Nothing
Application.ScreenUpdating = True
MsgBox "YILLIK GELİR sayfası dolmuştur !" & Chr(10) & "Lütfen satır ekleyiniz !", vbCritical
End Sub


yukarıdaki koda sayfadaki filtre leri temizleyip ondan sonra aktarma illemini yapmak istiyorum yardımcı olabilirmisiniz

 

[asi_kral]

Merhaba
Dosya üzerinde açıklama yapma imkanınız var mı_?

 

[gedavet]

ilginiz için teşekkür ederim
dosyada bir çok sayfa var örnek oluşturması çok zor olacak
bu şekli ile çözüverebilirseniz

 

[asi_kral]

ilginiz için teşekkür ederim
dosyada bir çok sayfa var örnek oluşturması çok zor olacak
bu şekli ile çözüverebilirseniz

Bu şekilde çözemem. Kodu denemem lazım. Ne iş yapar diye siz ne istiyorsunuz hangi istediğinizi yapmıyor bunları bulmam lazım. Ekleyemiyorsanız benden bu kadar başka yorum yok.

 

[gedavet]

12 aylık sayfalar var bu sayfalardan bir sayfaya veri aktarı yor bu kısmı düzgün çalışıyor
bu aktarma işlemine başlamadan önce sayfadaki sütun başlarında filtre var bunları temizlemesini istiyorum

boş bir sayfada deneme yaptığımda şu şekilde bir kod veriyor "ActiveSheet.ShowAllData"
bu kodu ileve edemedim hata veriyor

 

[asi_kral]

Merhaba
bu kodu deneyin.

[COLOR="Red"]ActiveSheet[/COLOR].AutoFilter

Not : Filtre olduğunu söylediğiniz için sadece filtrenin kalması için gerekli kodu yazdım.
Kırmızı ile boyadığım yere sayfa adını Sheets("Sayfa1") şeklinde yazarak aktif olmayan bir sayfadaki filtreyi kaldırabilirsiniz.

 

[gedavet]

Sheets("YILLIK GELİR").AutoFilter

şeklinde kodu oluşturdum enbaştaki Sub GELİR_SAYFALARINI_BİRLEŞTİR()
bu kodun altına ekledim ancak hta verdi

 

[asi_kral]

Sheets("YILLIK GELİR").AutoFilter

şeklinde kodu oluşturdum enbaştaki Sub GELİR_SAYFALARINI_BİRLEŞTİR()
bu kodun altına ekledim ancak hta verdi

Sanırım üstte yazdığımı okumadınız. Ben ezbere yardım etmeye çalışıyorum size sadece.

 

[gedavet]

örnek dosya ekledim
yıllık gelir sayfasına aktarma işlemi yapmadan önce filtreleri temizlemesi lazım

 

[asi_kral]

örnek dosya ekledim
yıllık gelir sayfasına aktarma işlemi yapmadan önce filtreleri temizlemesi lazım

Merhaba

ActiveSheet.Range("B4:I4").AutoFilter

Ya bu kodu

Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter

Yada bu kodu kullanınız.

 

[gedavet]

ilginiz için teşekkür ederim ancak tamamen filtreyi kaldırıyor benim yapmak istediğim o değil filtreyi temizlemek yani filtreden bazı yerleş işaretli olduğu için benimde örnek gönderdğim gibi o işaretlemeleri temizleyip aktarması

 

[gedavet]

"ActiveSheet.ShowAllData"
bu işlemi yapması lazım

 

[asi_kral]

Field:=1

şeklinde ekleme yapın.
1 Değişkendir. Seçtiğiniz aralıkta hangi sütunda ise o sütun sayısını yazınız.
B = 1 ~ C = 2 ~ D = 3 ~ E = 4 ~ F = 5 ~ G = 6 ~ H = 7 ~ I = 8 gibi

Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=2

 

[gedavet]

13. mesajınızdaki örneği anlmadım kodun içeirsine ekleyeceğim örnek kodu yazı verebilirmisiniz

"ActiveSheet.ShowAllData"
bu kod temizliyor ancak kodumun içeirisne ekleyemedim

 

[asi_kral]

13. mesajınızdaki örneği anlmadım kodun içeirsine ekleyeceğim örnek kodu yazı verebilirmisiniz

"ActiveSheet.ShowAllData"
bu kod temizliyor ancak kodumun içeirisne ekleyemedim

Üstte örnek bir kod ekledim.

 

[gedavet]

hocam verdiğiniz örneği denedim ancak filtrelerin hepsindeği seçimleri temizlemiyor

 

[asi_kral]

hocam verdiğiniz örneği denedim ancak filtrelerin hepsindeği seçimleri temizlemiyor

Hepsini temizlemek için ilk verdiğim kodu kullanabilirsiniz_?
Siz bana tam olarak ne yapmak istediğinizi söyleseniz bende ona göre çözüm üretsem

 

[gedavet]

ActiveSheet.Range("B4:I4").AutoFilter
ilk verdiğiniz kod bunu diyorsanız filtreyi temizlemiyor tamamen kaldırıyor benim istediğim büütun sütundaki filtrelri temizlemek

boş bir sayfada makro kaydettim yapmak istediğimi bu kodu verdi
"ActiveSheet.ShowAllData"

 

[asi_kral]

Yapmak istediğinizi bir de açıklasanız tam olacaktı ama.

 

[gedavet]

hocam özür dilerim anlatamadım derdimi

yıllık gelir sayfasındaki sütun başlıklarında filtre var bunlardan bazılarında filtreleme olunca aktarmada sıkıntı oluyor bu filtremelerdeki işarlenen leri temizleyim ondan sonra aktarması

excel 2010 da veri- filtre nin yanda temizle var bu işlemi yapmak istiyorum