Aktar butonuna macro

[1Al2Ver]

A2:H200 aralığında yapılmış ve veri süzen bir çizelgem var, verileri süzdükten sonra ortaya çıkan çizelgeyi, bire bir, "sayfa2" ye buton ile aktaracak, aktarma sonunda da mesaj verecek macro nedir? Teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[a1].currentregion.copy [sayfa2!a1]

 

[Recep İpek]

Sn.1Al2Ver

Örnek küçük bir dosya ekleyebilirseniz çözüm bulmamız daha da kolaylaşacaktır.

 

[Necdet]

Merhaba,

Levent Bey'in hızına erişmek olası mı?

Bende aşağıdaki kodları önerecektim.

Sub Bul_Aktar()
Sheets(1).UsedRange.Copy Sheets(2).[A1]
End Sub

 

[1Al2Ver]

Aşağıdaki kodu deneyin.

[a1].currentregion.copy [sayfa2!a1]

Sayın leventm, teşekkürler.Saygılarımla.

 

[1Al2Ver]

Merhaba,

Levent Bey'in hızına erişmek olası mı?

Bende aşağıdaki kodları önerecektim.

Sub Bul_Aktar()
Sheets(1).UsedRange.Copy Sheets(2).[A1]
End Sub

Sayın Yesertener, size de teşekkür ederim.Saygılarımla.

 

[1Al2Ver]

Merhaba, A1:H1 de başlık, I1 de buton var, sadece A2:H200 arasında süzülmüş verileri aktarmak isteseydim macro nasıl olurdu? ( Şu haliyle süzülmüş verilerle beraber, başlık dahil sayfada ne var ne yok aktarıyor ),Saygılarımla.

 

[Necdet]

Merhaba,

Başlıkları da almak isterseniz eğer :

Sub Bul_Aktar()
Sheets(1).UsedRange.Columns("A:H").Copy Sheets(2).[A1]
End Sub

Başlıkları almadan istiyorsanız aşağıdaki kodları deneyiniz, bende çalıştı sizde çalışacak mı?

Sub Makro1()
    Range("A2:H300").SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A1]
End Sub

 

[1Al2Ver]

Merhaba,

Başlıkları almadan istiyorsanız aşağıdaki kodları deneyiniz, bende çalıştı sizde çalışacak mı?

Sub Makro1()
    Range("A2:H300").SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A1]
End Sub

Sayın Yesertener, merhaba, 2 nci kod ile çalıştım, sorun yok, diğerini de ilerde gerekir diyerek yedekledim, elinize sağlık, teşekkür ederim, saygılarımla.

Not; .....[A2] yaptım.

 

[Necdet]

Merhaba,

Sayın 1Al2Ver,

Parametrik düşünmekte yarar var, kodları aşağıdaki gibi kullanmak daha etkili olur.

Sub Makro1()
    SonSatır = [H65536].End(3).Row
    Range[B]("A2:H" & SonSatır[/B]).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A2]
End Sub

 

[1Al2Ver]

Merhaba,

Sayın 1Al2Ver,

Parametrik düşünmekte yarar var, kodları aşağıdaki gibi kullanmak daha etkili olur.

Sub Makro1()
    SonSatır = [H65536].End(3).Row
    Range[B]("A2:H" & SonSatır[/B]).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A2]
End Sub

Sayın Yesertener, merhaba, yeni parametrik formülü kullandım, tekrar teşekkür ederim, hem yardımcı hem öğretici oldunuz, saygılar sunarım.

 

[bunyamin07]

Bir hücredeki veriyi başka bir hücreye buton ile atabilmem için hangi konutu yazmam gerekiyor

 

[mkstyle]

Acemiden bir kod.Ben bu şekilde kullandım.

sub gonderbutton_click ()
Sheets("sayfa1").[a2]=Sheets("sayfa1").[a35]
sub end

//a35 hücresindeki değeri a2 hücresine gönderme