Forum Programosy

Poniżej znajduje się makro, które "kopiuje" jedną komórkę i "wkleja ją specjalnie" w inne miejsce, później dokonywane jest obramowanie dwóch komórek.

Kod: Zaznacz wszystko

Sub data2()
'
' data2 Makro
' Makro zarejestrowane 2007-01-09, autor XXX
'

'
    Range("F5").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("B7:C7").Select
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

Czyli kopiowana jest komórka F5,
później zostaje ona wklejona za pomocą opcji specjalnej do komórki B7,
Teraz zostają zaznaczone dwie komórki B7 i C7 i zostają obramowane.

Interesuje mnie jak przerobić to makro, w taki sposób, żeby:
makro uruchomiło się automatycznie kiedy w komórke C7 zostanie wpisana jakaś wartość.
I jeszcze jedno, chodzi mi również o to żeby nie tyczyło się to tylko wiersza 7, czyli że jeżeli w C10 wpisze wartość to znowu ma mi się wykonać makro, tyle tylko że teraz komórka F5 ma zostać wklejona w B10.