- Katılım
- 29 Kasım 2022
- Mesajlar
- 3
- Excel Vers. ve Dili
- Excel 2016
merhaba aşağıdaki yazdığım kodda TO MANY line continuations hatası veriyor aradaki boşluğu silemiyorum kırmızı kalıyor ne yapmamı önerirsiniz acaba
teşekkür ederim.
If dosyaadi = "" Then
MsgBox "'DT200H_'ile başlayan dosya bulunamadı"
Exit Sub
End If
'test için
If dosyaadi <> "" Then
MsgBox "dosya bulundu. " & dosya
End If
If Workbooks(makrolu_dosya).Sheets(1).Name <> "USD" Or _
Workbooks(makrolu_dosya).Sheets(2).Name <> "EUR" Or _
Workbooks(makrolu_dosya).Sheets(3).Name <> "GBP" Or _
Workbooks(makrolu_dosya).Sheets(4).Name <> "CHF" Or _
Workbooks(makrolu_dosya).Sheets(5).Name <> "AUD" Or _
Workbooks(makrolu_dosya).Sheets(6).Name <> "DKK" Or _
Workbooks(makrolu_dosya).Sheets(7).Name <> "SEK" Or _
Workbooks(makrolu_dosya).Sheets(8).Name <> "JPY" Or _
Workbooks(makrolu_dosya).Sheets(9).Name <> "CAD" Or _
Workbooks(makrolu_dosya).Sheets(10).Name <> "KWD" Or _
Workbooks(makrolu_dosya).Sheets(11).Name <> "NOK" Or _
Workbooks(makrolu_dosya).Sheets(12).Name <> "SAR" Or _
Workbooks(makrolu_dosya).Sheets(13).Name <> "RUB" Or _
Workbooks(makrolu_dosya).Sheets(14).Name <> "CNY" Or _
Workbooks(makrolu_dosya).Sheets(15).Name <> "IQD" Or _
Workbooks(makrolu_dosya).Sheets(16).Name <> "XAU" Or _
Workbooks(makrolu_dosya).Sheets(17).Name <> "GEL" Or _
Workbooks(makrolu_dosya).Sheets(18).Name <> "BHD" Or _
Workbooks(dosyaadi).Sheets(1).Name <> "USD" Or _
Workbooks(dosyaadi).Sheets(2).Name <> "EUR" Or _
Workbooks(dosyaadi).Sheets(3).Name <> "GBP" Or _
Workbooks(dosyaadi).Sheets(4).Name <> "CHF" Or _
Workbooks(dosyaadi).Sheets(5).Name <> "AUD" Or _
Workbooks(dosyaadi).Sheets(6).Name <> "DKK" Or _
Workbooks(dosyaadi).Sheets(7).Name <> "SEK" Or _
Workbooks(dosyaadi).Sheets(8).Name <> "JPY" Or _
Workbooks(dosyaadi).Sheets(9).Name <> "CAD" Or _
Workbooks(dosyaadi).Sheets(10).Name <> "KWD" Or _
Workbooks(dosyaadi).Sheets(11).Name <> "NOK" Or _
Workbooks(dosyaadi).Sheets(12).Name <> "SAR" Or _
Workbooks(dosyaadi).Sheets(13).Name <> "RUB" Or _
Workbooks(dosyaadi).Sheets(14).Name <> "CNY" Or _
Workbooks(dosyaadi).Sheets(15).Name <> "IQD" Or _
Workbooks(dosyaadi).Sheets(16).Name <> "XAU" Or _
Workbooks(dosyaadi).Sheets(17).Name <> "GEL" Or _
Workbooks(dosyaadi).Sheets(18).Name <> "BHD" Then
MsgBox "sayfa isimleri hatalı"
Exit Sub
End If
teşekkür ederim.
If dosyaadi = "" Then
MsgBox "'DT200H_'ile başlayan dosya bulunamadı"
Exit Sub
End If
'test için
If dosyaadi <> "" Then
MsgBox "dosya bulundu. " & dosya
End If
If Workbooks(makrolu_dosya).Sheets(1).Name <> "USD" Or _
Workbooks(makrolu_dosya).Sheets(2).Name <> "EUR" Or _
Workbooks(makrolu_dosya).Sheets(3).Name <> "GBP" Or _
Workbooks(makrolu_dosya).Sheets(4).Name <> "CHF" Or _
Workbooks(makrolu_dosya).Sheets(5).Name <> "AUD" Or _
Workbooks(makrolu_dosya).Sheets(6).Name <> "DKK" Or _
Workbooks(makrolu_dosya).Sheets(7).Name <> "SEK" Or _
Workbooks(makrolu_dosya).Sheets(8).Name <> "JPY" Or _
Workbooks(makrolu_dosya).Sheets(9).Name <> "CAD" Or _
Workbooks(makrolu_dosya).Sheets(10).Name <> "KWD" Or _
Workbooks(makrolu_dosya).Sheets(11).Name <> "NOK" Or _
Workbooks(makrolu_dosya).Sheets(12).Name <> "SAR" Or _
Workbooks(makrolu_dosya).Sheets(13).Name <> "RUB" Or _
Workbooks(makrolu_dosya).Sheets(14).Name <> "CNY" Or _
Workbooks(makrolu_dosya).Sheets(15).Name <> "IQD" Or _
Workbooks(makrolu_dosya).Sheets(16).Name <> "XAU" Or _
Workbooks(makrolu_dosya).Sheets(17).Name <> "GEL" Or _
Workbooks(makrolu_dosya).Sheets(18).Name <> "BHD" Or _
Workbooks(dosyaadi).Sheets(1).Name <> "USD" Or _
Workbooks(dosyaadi).Sheets(2).Name <> "EUR" Or _
Workbooks(dosyaadi).Sheets(3).Name <> "GBP" Or _
Workbooks(dosyaadi).Sheets(4).Name <> "CHF" Or _
Workbooks(dosyaadi).Sheets(5).Name <> "AUD" Or _
Workbooks(dosyaadi).Sheets(6).Name <> "DKK" Or _
Workbooks(dosyaadi).Sheets(7).Name <> "SEK" Or _
Workbooks(dosyaadi).Sheets(8).Name <> "JPY" Or _
Workbooks(dosyaadi).Sheets(9).Name <> "CAD" Or _
Workbooks(dosyaadi).Sheets(10).Name <> "KWD" Or _
Workbooks(dosyaadi).Sheets(11).Name <> "NOK" Or _
Workbooks(dosyaadi).Sheets(12).Name <> "SAR" Or _
Workbooks(dosyaadi).Sheets(13).Name <> "RUB" Or _
Workbooks(dosyaadi).Sheets(14).Name <> "CNY" Or _
Workbooks(dosyaadi).Sheets(15).Name <> "IQD" Or _
Workbooks(dosyaadi).Sheets(16).Name <> "XAU" Or _
Workbooks(dosyaadi).Sheets(17).Name <> "GEL" Or _
Workbooks(dosyaadi).Sheets(18).Name <> "BHD" Then
MsgBox "sayfa isimleri hatalı"
Exit Sub
End If