Worksheet_Change sorunu

[zeidor]

Merhabalar
Aşağıdaki kodda seçim parametresini değiştirmek istiyorum,yardımcı olurmusunuz?

Örneğin: [E3] hücresinde listeleme yaptım
Seçim Yapın
27.05.2016
22.06.2016
22.07.2016
07.09.2016
16.09.2016
28.09.2016
05.10.2016
13.10.2016
26.10.2016
bu listelemede yukardaki gibidir, ben "Seçim Yapın" seçildiği zaman başka bir makro çalıştırmak istiyorum,Yardımlarınızı rica ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [E3]) Is Nothing Then Exit Sub
    
    Dim Sh  As Worksheet
    
    Range("C6:H28").ClearContents
    
        For Each Sh In Sheets
    
        If Sh.Range("B6") = Target.Value Then
        
            Sh.Range("C6:H28").Copy
            Range("C6").PasteSpecial Paste:=xlPasteAll
            Application.CutCopyMode = False
            Range("E3").Select
            Exit For
            
        End If
        
    Next Sh

End Sub

 

[ÖmerBey]

Merhaba,
Şu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E3]) Is Nothing Then Exit Sub
[COLOR="Red"]If Target.Value = "Seçim Yapın" Then
    Application.EnableEvents = False
    [COLOR="Blue"]Call BaşkaMakro[/COLOR]
    Application.EnableEvents = True
Else[/COLOR]
    Dim Sh  As Worksheet
    
    Range("C6:H28").ClearContents
    
        For Each Sh In Sheets
    
        If Sh.Range("B6") = Target.Value Then
        
            Sh.Range("C6:H28").Copy
            Range("C6").PasteSpecial Paste:=xlPasteAll
            Application.CutCopyMode = False
            Range("E3").Select
            Exit For
            
        End If
        
    Next Sh
[COLOR="red"]End If[/COLOR]
End Sub

 

[zeidor]

Teşekkürler mucit77,birde aklıma gelmişken öğrenmek maksatlı soruyorum,
son yaptınızın aksine ek makro çağırmak yerine "seçim yapın" seçildiği zaman "c6:h6" hücresini "c27:h27" hücresine kadar kopyalabilirmiyiz,bir nevi tabloyu dolgu rengiyle temize çekmek istiyorum.

 

[ÖmerBey]

İlgili yere şu kodu yazabilirsiniz.

Range("C6:H6").Copy Range("C7:H27")

 

[zeidor]

Şimdi tam istediğim gibi oldu,çok teşekkürler mucit77