koşula göre satır kopyalama

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

koşula göre satır kopyalama

İleti#1)  umitkabak » 15 May 2018 11:13

Merhabalar,
ekte gönderdiğim tablo için, koşula göre satır kopyalama macrosu yapmaya çalışıyorum fakat çalışmadı. örneğin 1. sayfadaki A1 satırına işlem kodu 1 girdiğimde 2. sayfaya 2 girdiğimde 3. sayfaya 3 girdiğimde 4. sayfaya kopyalamasını istiyorum. yardımıcı olabilirseniz çok sevinirim.

şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
umitkabak
 
Kayıt: 15 May 2018 11:02
Meslek: MUHASEBE
Yaş: 36
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: koşula göre satır kopyalama

İleti#2)  ahfirat » 15 May 2018 15:56

şunumu yapmak istiyorsunuz..a3 hücresine 1 yazınca 3 nolu satır kopyalayıp 2. sayfada 1. satıra yazacak.......
2 yazınca gene 3. satırı kopyalayıp 3.sayfada 1.satıra yazacak
Kullanıcı avatarı
ahfirat
Yeni Başlamış
 
Kayıt: 10 Oca 2018 11:18
Meslek: inşaat mühendisi
Yaş: 39
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

Cevap: koşula göre satır kopyalama

İleti#3)  umitkabak » 16 May 2018 14:45

h3 hücresine 1 yazınca 3. satırı sayfa2 de 3. satıra yazmasını. h3 hücresine 2 yazınca sayfa3 de 3. satıra yazmasını. h3 hücresine 2 yazınca sayfa4 de 3. satıra yazmasını istiyorum.
Kullanıcı avatarı
umitkabak
 
Kayıt: 15 May 2018 11:02
Meslek: MUHASEBE
Yaş: 36
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: koşula göre satır kopyalama

İleti#4)  tasad » 16 May 2018 23:41

Kodları boş modüle kaydet ve çalıştır.

Kod: Tümünü seç
Sub kayıt()
If Sayfa1.range("h3") = 1 Then
Sayfa1.range("a3:h3").Copy Sayfa2.range("a3:h3")

ElseIf Sayfa1.range("h3") = 2 Then
Sayfa1.range("a3:h3").Copy Sayfa3.range("a3:h3")

ElseIf Sayfa1.range("h3") = 3 Then
Sayfa1.range("a3:h3").Copy Sayfa4.range("a3:h3")

End If

End Sub
Kullanıcı avatarı
tasad
Yeni Başlamış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

Cevap: koşula göre satır kopyalama

İleti#5)  umitkabak » 17 May 2018 10:29

çok teşekkürler
Kullanıcı avatarı
umitkabak
 
Kayıt: 15 May 2018 11:02
Meslek: MUHASEBE
Yaş: 36
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe