herkese iyi günler
aşağıdaki kod ile ilgili dosyanın açık olup olmadığını kontrol edip açık değilse açıyorum(m.temel kormaz'ın sitesinden t.başkan'dan yadigar kodlar, kendilerini anmadan edemedim sağolsunlar)
Range("B28").Select
On Error GoTo gec
Windows("dit.xls").Activate
If ActiveWindow.Caption = "dit.xls" Then GoTo geciniz
gec:
Workbooks.Open Filename:="C:\hesap\dit.xls"
geciniz:
Range("B6:J12").Select
şimdi sorunum şu aynı makro içerisinde birden fazla dosyanın açık olup olmadığı konrtol edilip açılması istendiğinde bu kodlar çalışmıyor;
Range("B28").Select
On Error GoTo gec
Windows("dit.xls").Activate
If ActiveWindow.Caption = "dit.xls" Then GoTo geciniz
gec:
Workbooks.Open Filename:="C:\hesap\dit.xls"
geciniz:
Range("B6:J12").Select
Range("B28").Select
ActiveCell.Value = "123"
On Error GoTo dec
Windows("bit.xls").Activate
If ActiveWindow.Caption = "bit.xls" Then GoTo deciniz
dec:
Workbooks.Open Filename:="C:\hesap\bit.xls"
deciniz:
Range("B6:d12").Select
nasıl bir değişiklik yapmak gerekir? ilgilenen arkadaşlara şimdiden teşekkürler.
iyi çalışmalar
aşağıdaki kod ile ilgili dosyanın açık olup olmadığını kontrol edip açık değilse açıyorum(m.temel kormaz'ın sitesinden t.başkan'dan yadigar kodlar, kendilerini anmadan edemedim sağolsunlar)
Range("B28").Select
On Error GoTo gec
Windows("dit.xls").Activate
If ActiveWindow.Caption = "dit.xls" Then GoTo geciniz
gec:
Workbooks.Open Filename:="C:\hesap\dit.xls"
geciniz:
Range("B6:J12").Select
şimdi sorunum şu aynı makro içerisinde birden fazla dosyanın açık olup olmadığı konrtol edilip açılması istendiğinde bu kodlar çalışmıyor;
Range("B28").Select
On Error GoTo gec
Windows("dit.xls").Activate
If ActiveWindow.Caption = "dit.xls" Then GoTo geciniz
gec:
Workbooks.Open Filename:="C:\hesap\dit.xls"
geciniz:
Range("B6:J12").Select
Range("B28").Select
ActiveCell.Value = "123"
On Error GoTo dec
Windows("bit.xls").Activate
If ActiveWindow.Caption = "bit.xls" Then GoTo deciniz
dec:
Workbooks.Open Filename:="C:\hesap\bit.xls"
deciniz:
Range("B6:d12").Select
nasıl bir değişiklik yapmak gerekir? ilgilenen arkadaşlara şimdiden teşekkürler.
iyi çalışmalar