Şarta bağlı Makroyu Otomatik Çalıştırma

[horozmen90]

Merhaba;

F6 hücresinde bir formüle bağlı olarak bir sayı değeri bulunmaktadır.
Örnek: =TOPLA(F1:F6) (Sonuç: 45 gibi).

G6 hücresinde ise sabit bir sayı bulunmaktadır.
Örnek: 50 gibi

Eğer F6 hücresindeki formülün sonucu, G6 hücresindeki sayıdan küçük ise
F6 hücresindeki formülün sonucunu G6 hücresine kopyalayan aşağıdaki
makroyu, excel dosyasının açılışında otomatikman çalışan auto_open makrosuna nasıl yazabilirim.

Teşekkürler...

Sub Makro1()

Range("F6").Select
Selection.Copy
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5").Select
Application.CutCopyMode = False
End Sub

 

[ExcelF1]

Makro ismini Autpen olarak değiştirin.

 

[horozmen90]

Makro ismini Autpen değiştiriyorum. Ancak,
F6 hücresindeki formül, G6 hücresinden küçük ise yukarıdaki makro çalışsın,
değilse çalışmasın istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub AUTO_OPEN()
If Range("F6") < Range("G6") Then
Range("G6").Value = Range("F6").Value
Else: End If
End Sub

. . .

 

[horozmen90]

Hüseyin Bey, Çoook Teşekkürler....