[Yardım]  Seçilen hücreyi farklı sayfaya kopyalamak.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Seçilen hücreyi farklı sayfaya kopyalamak.

İleti#1)  justenn » 11 Oca 2019 09:27

Merhabalar

Herkeze iyi çalışmalar dilerim.

Bir çalışma sayfası oluşturmaktayım.

+1500 satırlık bir bilgi bankam mevcut.
Bu sayfada filtreleme işlemi uygulamaktayım.

Takıldığım konu ise şudur.

Filtreleme yaptığım esnadan sonra Örneğin a105 hücresini seçtiğim zaman command buttona tanımlıyacağımız bu kod ile yeni bir sayfaya ( örn sayfa2 isimli) a105,b105,c105,d105 hücrelerini, yeni sayfada belirliyeceğim örn : a105,a106,a107,a108 hücrelerine kopyalamak istiyorum.

Nasıl bir kod ile yapıcağımı bilmiyorum. Bu konuda desteğinize ihtiyaç duydum.

Herkeze şimdiden teşekkür ederim.
Kullanıcı avatarı
justenn
Yeni Başlamış
 
Kayıt: 16 Haz 2017 10:46
Meslek: işçi
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇORLU

Cevap: Seçilen hücreyi farklı sayfaya kopyalamak.

İleti#2)  tasad » 12 Oca 2019 08:40

Kod: Tümünü seç
Sub filtreaktarma()
For Each son In Sayfa1.Range("A2:A" & Range("a65000").End(3).Row).SpecialCells(xlCellTypeVisible)
a = InputBox("Sayfa2 de aktarmak istediğiniz hücreyi yazın")
If a = "" Then Exit Sub
son.Offset(0, 0).Resize(, 4).Copy
Sayfa2.Range(a).PasteSpecial Transpose:=True
Application.CutCopyMode = False
Next
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 582
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe