Rafet
Altın Üye
- Katılım
- 24 Mart 2005
- Mesajlar
- 230
- Excel Vers. ve Dili
- Ofice 2010 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-12-2025
Excell beni hiç bu kadar bunalt mamıştı.
Kendi makinamda yaptığım proje çalışıyor. Başka bir makınaya excel kopyaladığımda çalışmıyor. Ve bu hatayı veriyor.
Compile Error:
can't find projector
Evet çalıştıramadığı kodlarda.
Private Sub Worksheet_Change(ByVal Target As Range)
Cancel = True
If Intersect(Target, [b1]) Is Nothing Then GoTo 10
Sheets("Bilgiler").Range("B3") = Sheets("GUNLUK").Range("b1")
10 Cancel = True
If Intersect(Target, [b2]) Is Nothing Then GoTo 11
Sheets("Bilgiler").Range("B4") = Sheets("GUNLUK").Range("b2")
11 Cancel = True
If Intersect(Target, [C1]) Is Nothing Then GoTo 12
Sheets("Bilgiler").Range("C3") = Sheets("GUNLUK").Range("C1")
12 Cancel = True
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Sheets("Bilgiler").Range("C4") = Sheets("GUNLUK").Range("C2")
End Sub
Sayfa Kod Alnın da yazan bu makroyu sildiğimde aşağıdaki userformda kod alanında yazan aşağıdaki kodlarda arıza veriyor.
Private Sub UserForm_Activate()
a = Day(Sheets("Bilgiler").Range("C11"))
b = Day(Sheets("Bilgiler").Range("C12"))
c = Month(Sheets("Bilgiler").Range("C11"))
d = Month(Sheets("Bilgiler").Range("C12"))
e = Year(Sheets("Bilgiler").Range("C11"))
f = Year(Sheets("Bilgiler").Range("C12"))
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Gün = a
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Gün = b
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Ay = c
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Ay = d
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Yıl = e
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Yıl = f
End Sub
Neden Neden Neden ?
Başka bir makinada denedim oldu. Daha başka bir makinada denedim olmadı . Neden yapa bilir. Projeyi yaptığım makınede Ofice 2003 var. Home XP. Olan ve olmayan makinalardada Ofice 2003 ve Home XP. Ofice Ayarlarını aktarma sihirbazı ile aktardım .
Olmadı Olmadı . Hiç böyle bişe ile karşılaşan var mı ! . Acaba çözüm bula bilecekmiyiz.
Vakit ayırdığınız için teşekkürler.
Muhabbetle.
Kendi makinamda yaptığım proje çalışıyor. Başka bir makınaya excel kopyaladığımda çalışmıyor. Ve bu hatayı veriyor.
Compile Error:
can't find projector
Evet çalıştıramadığı kodlarda.
Private Sub Worksheet_Change(ByVal Target As Range)
Cancel = True
If Intersect(Target, [b1]) Is Nothing Then GoTo 10
Sheets("Bilgiler").Range("B3") = Sheets("GUNLUK").Range("b1")
10 Cancel = True
If Intersect(Target, [b2]) Is Nothing Then GoTo 11
Sheets("Bilgiler").Range("B4") = Sheets("GUNLUK").Range("b2")
11 Cancel = True
If Intersect(Target, [C1]) Is Nothing Then GoTo 12
Sheets("Bilgiler").Range("C3") = Sheets("GUNLUK").Range("C1")
12 Cancel = True
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Sheets("Bilgiler").Range("C4") = Sheets("GUNLUK").Range("C2")
End Sub
Sayfa Kod Alnın da yazan bu makroyu sildiğimde aşağıdaki userformda kod alanında yazan aşağıdaki kodlarda arıza veriyor.
Private Sub UserForm_Activate()
a = Day(Sheets("Bilgiler").Range("C11"))
b = Day(Sheets("Bilgiler").Range("C12"))
c = Month(Sheets("Bilgiler").Range("C11"))
d = Month(Sheets("Bilgiler").Range("C12"))
e = Year(Sheets("Bilgiler").Range("C11"))
f = Year(Sheets("Bilgiler").Range("C12"))
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Gün = a
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Gün = b
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Ay = c
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Ay = d
UseForm_TKM_Ekranı.Text_Bas_Tarihi_Yıl = e
UseForm_TKM_Ekranı.Text_Bit_Tarihi_Yıl = f
End Sub
Neden Neden Neden ?
Başka bir makinada denedim oldu. Daha başka bir makinada denedim olmadı . Neden yapa bilir. Projeyi yaptığım makınede Ofice 2003 var. Home XP. Olan ve olmayan makinalardada Ofice 2003 ve Home XP. Ofice Ayarlarını aktarma sihirbazı ile aktardım .
Olmadı Olmadı . Hiç böyle bişe ile karşılaşan var mı ! . Acaba çözüm bula bilecekmiyiz.
Vakit ayırdığınız için teşekkürler.
Muhabbetle.