• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Çoklu Koşullu Makroda Görev Başlatma Sorunu

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
O

orienbaris

Yeni Üye
Katılım
6 Kas 2020
Mesajlar
6
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Ordu
Ad Soyad
orienbaris
Arkadaşlar merhaba. Excelde makro içeren bir dosya oluşturdum. Bu dosya içerisindeki tablonun başlığını değiştirerek yazıcı gönderen bir makro oluşturdum. Fakat şöyle bir sorun var benim istediğim R10 hücresinde yazan değere göre makro belirli alanları yazdırsın şeklinde. İf else kullandım. Kodlarıda yükleyeceğim. Komutlarda sorun çıkmadan yazıp kayıt ettim. Fakat komut çalışmıyor. Komut söz dizimi şu şekilde;


C++: 
Sub tek_yazdir()

'

' tek_yazdir Makro

'



'

    'Salon 1'

    Sheets("Liste").Select

    If Range("R10") = ("AF8") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,3,4,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "1. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 2'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF9") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "2. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 3'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF10") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "3. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 4'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF11") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "4. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 5'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF12") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "5. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 6'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF13") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "6. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 7'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF14") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "7. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Salon 8'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF15") Then

    Range("R10").Select

    Selection.Copy

    Range("C9:G9").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "8. Salon Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Pre-Op'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF16") Then

    Range("R10").Select

    Selection.Copy

    Range("C269:G269").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "Pre-Op Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Post-Op Masa 1'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF17") Then

    Range("R10").Select

    Selection.Copy

    Range("C139:G139").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "Post-Op 1. Masa Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Post-Op Masa 2'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF18") Then

    Range("R10").Select

    Selection.Copy

    Range("C269:G269").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "Post-Op 2. Masa Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Post-Op Masa 3'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF19") Then

    Range("R10").Select

    Selection.Copy

    Range("C269:G269").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    MsgBox "Post-Op 3. Masa Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

 

    'Mavi Kod'

    Sheets("Liste").Select

    ElseIf Range("R10") = ("AF20") Then

    Sheets("M.Kod").Select

    ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

    Sheets("Liste").Select

    MsgBox "Mavi Kod Çantası Malzeme Listesi Yazıcıya Gönderildi.", vbInformation

    End If

 

End Sub



Bu komutlar nedense bir türlü çalışmıyor. Yardımcı olabilirseniz memnun olurum.
 

Ekli dosyalar

  • Masalardaki İlaç ve Malzeme Kontrol formu.xlsm
    65.9 KB · Görüntüleme: 7
Moderatör tarafında düzenlendi:
azraep

azraep

Yeni Üye
Katılım
29 Eki 2020
Mesajlar
153
En iyi yanıt
2
Puanları
28
Yaş
79
Konum
İstanbul
Ad Soyad
Azra
Office Vers.
Office 2019 TR
kodunuzda küçük bir eksik var
If Range("R10") = ("AF8") Then kısımlarındaki eşittirden sonra range eklerseniz sorun düzeliyor.
If Range("R10") = Range("AF8") Then olacak tüm karşılaştırmalar.

küçük bir not ta benden olsun.
r10 hücresini kopyalamak yerine
range("C9") = range("R10") da kullanabilirsiniz.
 
O

orienbaris

Yeni Üye
Katılım
6 Kas 2020
Mesajlar
6
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Ordu
Ad Soyad
orienbaris
Yardiminiz icin cok tesekkur ederim. Hicbir uyari alamamistim makroyu calistirmak istedigimde. Bu denli basit bir sorun oldugunu da dusunmemistim. Sagolun.
 
azraep

azraep

Yeni Üye
Katılım
29 Eki 2020
Mesajlar
153
En iyi yanıt
2
Puanları
28
Yaş
79
Konum
İstanbul
Ad Soyad
Azra
Office Vers.
Office 2019 TR
orienbaris' Alıntı:
Yardiminiz icin cok tesekkur ederim. Hicbir uyari alamamistim makroyu calistirmak istedigimde. Bu denli basit bir sorun oldugunu da dusunmemistim. Sagolun.
Genişletmek için tıkla ...
rica ederim. bazen görünmüyor böyle küçük şeyler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt