Makroyu Kısaltmak İçin Ne Yapmalıyım

[0uranus0]

Merhaba Arkadaşlar Aşağıdaki makroyu 27. sutundan 36. sutuna kadar kontrol edebilmem için nasıl kısaltıp kullanabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E30]) Is Nothing Then Exit Sub
If Target.Address = "$E$30" Then
    
If [K30] = "" Then
If Sheets("Sayfa1").Range("E30").Text <> "Tahmin" Then
Exit Sub
End If

    Range("L30").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-9
    Range("K30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End If
    
Sheets("sayfa1").Range("L30").ClearContents

End If


End Sub

 

[YUSUF44]

Tam olarak ne yapmak istiyorsunuz? Örnek bir dosya hazırlayıp dosya yükleme sitelerinden birinde paylaşırsanız daha anlaşılır olur. Dosyanızda görmek istediğiniz sonucu örneklerle göstermeniz uygun olur.

 

[Orion1]

............