Veri Süzmede diğer sayfaya şartlı aktarma

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda da bahsettiğim gibi, Belirli sütunda süzme yaptığımda, diğer sayfaya dosyada da belirttiğim şekilde aktarmasını nasıl yaptırabilirim?

Saygılar

 

[mesuttasar]

Sayın komutan63,

Sayfa 1 e bir command button ekleyip aşağıdaki kodu ilave edermisiniz.

Sub deneme()

    a = [a65536].End(3).Row
Range("A1:H" & a).Copy
Sheets("sayfa2").Select

[a1].Select
ActiveSheet.Paste

b = [a65536].End(3).Row + 2
Cells(b, 1).Select
ActiveSheet.Paste

c = [a65536].End(3).Row + 2
Cells(c, 1).Select
ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit

End Sub

 

[mesuttasar]

Dosyayıda ekte gönderiyorum.

 

[aalakus]

yardım

merhaba,

ben yeni yeni makro yazmayı ögrenmeye calışyorum..Bunun için Temel Korkmaz Hocanın kitaplarını aldım ve sitemizden faydalanıyorum.. sizin gönderdiginiz makroyu inceledim ama pek anlayamadım
Kodların ne yaptıgını adım adım acıklamanız mümkünmü?
Ben coomandbutton ekleyip, bu kodu oldugu gibi kopyalayıp ,çalıştırmaya çalıştım ama başarılı olamadım
Yardımalrınızı rica ediyorum..
cok tesekkürler,
AYC

 

[mesuttasar]

merhaba,

ben yeni yeni makro yazmayı ögrenmeye calışyorum..Bunun için Temel Korkmaz Hocanın kitaplarını aldım ve sitemizden faydalanıyorum.. sizin gönderdiginiz makroyu inceledim ama pek anlayamadım
Kodların ne yaptıgını adım adım acıklamanız mümkünmü?
Ben coomandbutton ekleyip, bu kodu oldugu gibi kopyalayıp ,çalıştırmaya çalıştım ama başarılı olamadım
Yardımalrınızı rica ediyorum..
cok tesekkürler,
AYC

Sayın aalakus , bende o kitaptan faydalanıyorum.Kodların açıklamasına gelince ; birazdan çıkacağım ama döndüğümde muhakkak size yukarıda yazılı olan kodların açıklamasını yapacağım.Öğleden sonra müsait olduğunuzda bu konuya tekrar bakarsınız. Bu arada eklediğim dosyayı indirip inceleyin.Fikir verebilir size.

 

[Mdemir63]

Dosyayıda ekte gönderiyorum.

Selamlar

Mesut bey çok teşekkür ederim . Sağolun

Kolay gelsin

Saygılar

 

[Mdemir63]

Tekrar Merhabalar

Süzdüğümüz ismi tamam aktarıyor buraya kadar bir sıkıntı yok. Ancak diğer ismi süzdürüp aktardığımızda önceki aktarılanı silmesi de gerekiyor.

Saygılar

 

[mesuttasar]

Tekrar Merhabalar

Süzdüğümüz ismi tamam aktarıyor buraya kadar bir sıkıntı yok. Ancak diğer ismi süzdürüp aktardığımızda önceki aktarılanı silmesi de gerekiyor.

Saygılar

Kodları aşağıdaki gibi revize ettim.Son haliyle öce sayfa 2 deki verileri siliyor sonra da istemiş olduğunuz süzülen değerleri sayfa 2 ye kopyalıyor.Dosyanız ektedir.

Sub deneme()
Sheets("sayfa2").Select
    a = [a65536].End(3).Row
Range("A1:H" & a).Select
    Range("A1:H" & a).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

Sheets("sayfa1").Select


a = [a65536].End(3).Row
Range("A1:H" & a).Copy
Sheets("sayfa2").Select

[a1].Select
ActiveSheet.Paste

b = [a65536].End(3).Row + 2
Cells(b, 1).Select
ActiveSheet.Paste

c = [a65536].End(3).Row + 2
Cells(c, 1).Select
ActiveSheet.Paste
    Columns("A:H").EntireColumn.AutoFit
   
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    Range("A1").Select

End Sub

 

[Mdemir63]

Selamlar,

Teşekkür ederim elinize sağlık

Saygılar

 

[mesuttasar]

Selamlar,

Teşekkür ederim elinize sağlık

Saygılar

Rica ederim iyi çalışmalar.

 

[aalakus]

Mesut Bey Merhaba,

Kodları acıklayacaktınız ama ..uygun oldugunuzda acıklarsanız cok sevinirim..

Tesekkürler,

 

[mesuttasar]

Mesut Bey Merhaba,

Kodları acıklayacaktınız ama ..uygun oldugunuzda acıklarsanız cok sevinirim..

Tesekkürler,

Şöyle yapalım o zaman.

Sub deneme()
1 Sheets("sayfa2").Select
2    a = [a65536].End(3).Row
3 Range("A1:H" & a).Select
4    Range("A1:H" & a).Select
5    Application.CutCopyMode = False
6    Selection.Delete Shift:=xlUp

7 Sheets("sayfa1").Select


8 a = [a65536].End(3).Row
9 Range("A1:H" & a).Copy
10 Sheets("sayfa2").Select

11 [a1].Select
12 ActiveSheet.Paste

13 b = [a65536].End(3).Row + 2
14 Cells(b, 1).Select
15 ActiveSheet.Paste

16 c = [a65536].End(3).Row + 2
17 Cells(c, 1).Select
18 ActiveSheet.Paste
19    Columns("A:H").EntireColumn.AutoFit
   
20    Sheets("Sayfa1").Select
21    Application.CutCopyMode = False
22    Range("A1").Select

End Sub

Şimdi ben kodların yan tarafına numara verdim,bu şekilde hangi numaralı adımda ne yapmak istiyoruz onu açıklayalım.

1 nolu satırda Sayfa2 yi seç diyoruz.

2 nolu satırda A sütunundaki en son dolu hücrenin satır numarasını a değişkeni olarak belirliyoruz.Mesela a=25 olsun

3 nolu satırda A1 ile H25 hücreler arasını seçiyoruz.

4 nolu satırda yanlışlıkla aynı işlemi tekrarlamışız.

5 ve 6 nolu satırda seçile aralığı silip Hücreleri yukarı ötele diyoruz.

7 nolu satırda Sayfa1 i seç diyoruz.

8 ve 9 nolu satırda 2 ve 3 numaralı adımı tekrarlıyoruz.

10 nolu satırda Sayfa 2 ye geç diyoruz.

11 nolu satırda A1 hücresini seç diyoruz.

12 nolu satırda Saya1 de kopyalanan veriyi yapıştır diyoruz.

13 nolu satırda A sütunundaki en son dolu hücrenin satır numarasının 2 fazlasını b değişkeni olarak belirliyoruz

14 nolu satırda b değeri ile satır 1 değeri ile sütunu belirtiyorz.

15 nolu satırda kopyalanan değeri tekrar yapıştırıyoruz.

Umarım anlatabilmişimdir.