Şartlı seçime bağlı veri aktarma

[kuva_i_milliye23]

Merhabalar;

Benim bir excel sayfasındaki verileri başka bir excey sayfasına aktaran makrom var.Ancak bu aktarma işlemini yapmadan evvel aktarılması gereken sütanlar arasında kalan bir veya bir kaç satırın seçilmesi durumunda makronun çalışmasını sağlamak istiyorum. Yani A Sütunu ile E sütünü arasındaki bir veya birkaç satırın seçilmesi durumunda makro çalışsın seçim belirtilen sütunlar arasında yapılmamışsa çalışmasın istiyorum.

Böyle birşey mümkünmüdür, Mümkünse kodu nasıl olmalıdır.

İyi Çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Sayfanın kod bölümüne aşağıdaki kodu uygulayıp aktarım işlemini yapabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
    'Sizin aktarım için kulandığınız kodlar (Tabi biraz düzenleme gerekecektir.)
End Sub

 

[kuva_i_milliye23]

Sayın Korhan AYHAN;

Sanırım yazdığınız kodu uygulamaya geçiremedim. Henüz eklediğim örnekteki makro üzerinde gerekli değişikliği yaparsanız minnettar kalacağım.

Teşekkürler.. İyi Çalışmalar

 

[Korhan Ayhan]

Selamlar,

Ben sorunuzu yanlış anlamışım. Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Düğme1_Tıklat()
    Sheets("Aktarım").Range("A3:E25").Value = ""
    Adres = Selection.Address
    İlk_Sütun = Mid(Adres, 2, 1)
    Son_Sütun = Mid(Adres, InStr(1, Adres, ":") + 2, 1)
    If İlk_Sütun = "A" And Son_Sütun = "E" Then
    Selection.Copy
    Sheets("Aktarım").Select
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Else
    MsgBox "Hatalı alan seçtiniz !" & Chr(10) & "Lütfen A-E sütunları arasında bir alan seçiniz !", vbExclamation, "Dikkat !"
    End If
End Sub

 

[kuva_i_milliye23]

Sayın Korhan Ayhan;

İstediğim tam olarak buydu.Çok teşekkür ederim.Ellerinize sağlık.

İyi çalışmalar..

 

[Mx@Raid]

makroyu şartlı dallandırma

Arkadaşlar ekte gönderdiğim dosyada makrolar kullandığım çalışmaya ait. Benim yapmak istediğim C9 hücresinde
REÇETE VERİLDİ yazıyorsa Sayfalardaki ilgili yere yazsın değilse diğer diğer makro devreye girsin ve REÇETE VERİLDİ ibaresi olmadan yazsın.

s4.Range("G9") = s1.Range("C8") & Chr(32) & Chr(43) & Chr(32) & s1.Range("C9") & Chr(32) & Chr(43) & Chr(32) & s1.Range("C7") & Chr(32)
& Chr(40) & yaz(s1.Range("C7")) & Chr(41) & Chr(32) & "GÜN İSTİRAHATİ UYGUN GÖRÜLMÜŞTÜR." & s4.Range("G9").Font.Size = 9

Burada REÇETE VERİLDİ ibaresini yazıyor.

s5.Range("G9") = s1.Range("C8") & Chr(32) & Chr(43) & Chr(32) & s1.Range("C7") & Chr(32) & Chr(40) & yaz(s1.Range("C7")) & Chr(41)
& Chr(32) & "GÜN İSTİRAHATİ UYGUN GÖRÜLMÜŞTÜR."

Burada ise REÇETE VERİLDİ ibaresini yazmıyor.

Her iki makroda ayrı sayfalara gönderiliyor.
Benim amacım tek sayfaya göndersin ama REÇETE VERİLDİ ibaresinin olup olmamasını dikkate alarak yazsın.