Şartlı Satır Kopyalama

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

Şartlı Satır Kopyalama

İleti#1)  drejan62 » 13 Haz 2018 17:51

Merhabalar,
Dosya ekleyemediğim için (kurum bilgisayarı izin vermiyor) sorumu anlatmaya çalışacağım.
Yardımınız için şimdiden teşekkürler.
Sayfa1 G sütunundaki bulunan verileri Z1 ve z2 hücrelerindeki verilere göre seçerek satırı Sayfa2 ya kopyalamasını istiyorum.
Örneğin; Z1 Hücresi:17 Z2 Hücresi:20 verileri olsun, amacımız G sütunudaki verileri 17-20 rakamları arasında olan satırları bulup Sayfa2 ye aktarmak. Yani G hücreleri Z1 den büyük Z2 den küçük olanları satırı kopyalayıp Sayfa2 ye aktaracak.
Teşekkür ederim
Kullanıcı avatarı
drejan62
Site Dostu
 
Adı Soyadı:ercan yılmaz
Kayıt: 29 Kas 2008 20:01
Konum: ...
Meslek: kamu
Yaş: 48
İleti: 514
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Şartlı Satır Kopyalama

İleti#2)  tasad » 14 Haz 2018 17:27

Sayfa1 in koduna kaydet.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
If Not Intersect(Target, [z1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Sayfa2.Cells.Delete
For a = 1 To Sayfa1.[g1000000].End(3).Row
If Sayfa1.Cells(a, "g") > Sayfa1.Range("z1") And Sayfa1.Cells(a, "g") < Sayfa1.Range("z2") Then
  Sayfa1.Cells(a, "g").Copy
  Sayfa2.Range("a1000000").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
  Sayfa1.Cells.CopyPicture
  Sayfa2.Select
End If
Next
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Şartlı Satır Kopyalama

İleti#3)  tasad » 18 Haz 2018 15:38

Kodları aşağıdaki şekilde değiştirdim.Boş bir modüle kaydedin ve çalıştırın.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Şartlı Satır Kopyalama

İleti#4)  tasad » 18 Haz 2018 15:41

Kodları aşağıdaki şekilde değiştirdim.Boş bir modüle kaydedin ve çalıştırın.

Kod: Tümünü seç
Sub satır_kopyala()
Dim a As Integer
Sayfa2.Cells.Delete
Application.ScreenUpdating = False
For a = 1 To Sayfa1.[g65536].End(3).Row
  If Sayfa1.Cells(a, "g") > Sayfa1.Range("z1") And _
  Sayfa1.Cells(a, "g") < Sayfa1.Range("z2") Then
  Sayfa1.Range(Cells(a, "a"), Cells(a, "y")).Copy
  Sayfa2.Range("a65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
  Sayfa1.Cells.CopyPicture
End If
Next
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 333
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe