Hücre Değerine Göre Makroyu Çalıştırma

[baykan_m]

Merhaba Arkadaşlar,

Eğer Sayfa1 A1 hücresi "BOYAHANE" ise aşağıdaki kırmızı ile işaretli makroyu yapsın değil ise mavi işaretli makroyu yapsın istiyorum. Yardım edebilirmisiniz acaba??

Workbooks.Open BYol
Sheets("hafta içi").Select
Windows("MALİYET PROGRAM.xlsm").Activate
Range("K4:K30").Select
Selection.Copy
Windows("ŞABLON.xlsx").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False





Workbooks.Open ÖYol
Sheets("hafta içi").Select
Windows("MALİYET PROGRAM.xlsm").Activate
Range("Q4:Q12").Select
Selection.Copy
Windows("ŞABLON.xlsx").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[dellerlim]

Merhaba, bu şekilde olabilir mi?

Sub baykan()
If Sheets("Sayfa1").Cells(1, 1) = "BOYAHANE" Then
[COLOR="Red"]Workbooks.Open BYol
Sheets("hafta içi").Select
Windows("MALİYET PROGRAM.xlsm").Activate
Range("K4:K30").Select
Selection.Copy
Windows("ŞABLON.xlsx").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False[/COLOR]

Else: 
[COLOR="Blue"]Workbooks.Open ÖYol
Sheets("hafta içi").Select
Windows("MALİYET PROGRAM.xlsm").Activate
Range("Q4:Q12").Select
Selection.Copy
Windows("ŞABLON.xlsx").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False[/COLOR]
End If
End Sub

 

[baykan_m]

çok teşekkür ederim tam istediğim gibi. Yalnız else olarak çalışmadı end if yaptım o zaman çalıştı. yani sorunum çözüldü çok teşekkür ederim