Format sonrası bazı makrolar çalışmıyor.

[ahzola]

Merhabalar,

Bilgisayarıma format attırmak zorunda kaldım.
Formatı bilgisayarcı attı ve kendisinin kurduğu office excell ile
yedekteki dosyalarımı açtıktan sonra olan oldu.

Daha sonra bilgisayarcının yüklediği excelli kaldırdım.
ve Web ortamından temin ettiğim. setup ile
çalıştırılan yeni bir excell kurdum.

Şimdi bazı makrolar çalışmıyor. Forumu taradım. Çok fazla konu çıkmadı.
Güvenlik düzeyi işlenmiş birtek. Önerilen uygulamayı yaptım lakin
bir yararı olmadı.

Faydası olurmu bilmiyorum.
aynı dosyada sayfaya yazılmış makro çalışıyor
lakin modüldeki makro çalışmıyor.

ne yapmam gerekir yardımlarınızı bekliyorum.
esenlikler dilerim.

 

[ahzola]

Tekrardan merhabalar;

Değerli üstadlar.
başlığı açtım açalı sürekli araştırıyorum.
Lakin bir çözüm bulamadım.
makroları aktif etmek için sürekli güvenlik merkezi işleniyor.

Oysaki aynı dosyadaki diğer makrolar çalışıyor.
Acaba diyorum. Makroların yazılış tarzı
farklı bununla ilgili olabilirmi.

Şuan elim ayağım bağlı lütfen ilginizi bekliyorum.

 

[ExcelF1]

Mahsuru yok ise, makro hatasına örnek teşkil eden bir dosyanızı ekler misiniz.

 

[ahzola]

Teşekkür ederim üstad alakanız için
aşağıdaki makroların tek sayfada çalışmasını istiyorum

1. formül sayfa 1 de idi
2. formül modül 2 de
3 ve 4. formüller modül 1 de
idi.

formüllere bakarak ne istendiği anlaşılıyor zaten
eğerki açıklama gerekirse yaparım elbette.
dosya ile yüklemedim çünkü
orjinal dosya ortada kalmadı o kadar çok uğraştım ki
hem benim excel de de sorun olur diye bu şekilde
daha mantıklı sanki.

Şimdiden teşekkür ederim.
Excelf1 arkadaşımıza



1 formül

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2222]) Is Nothing Then Exit Sub
If Cells(Target.Row, 1).Value = "" Then
ElseIf Cells(Target.Row, 1).Value = 0 Then
Rows(Target.Row + 1).Insert
Range(Cells(Target.Row, 2), Cells(Target.Row, 19)).Copy
Cells(Target.Row + 1, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(Target.Row, 1).Select
ElseIf Cells(Target.Row, 1).Value = 1 Then
sonsat = Cells(Rows.Count, 2).End(3).Row + 1
Range(Cells(Target.Row, 2), Cells(Target.Row, 19)).Copy
Cells(sonsat, 2).Select
ActiveSheet.Paste
Range(Cells(Target.Row, 2), Cells(Target.Row, 19)).ClearContents
Application.CutCopyMode = False
Cells(Target.Row, 1).Select
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [I2:I2222]) Is Nothing Then Exit Sub
Call formul
End Sub

2. formül

Sub kosulagoreboya()
Application.ScreenUpdating = False
Range("G2:G2222").Interior.ColorIndex = xlNone
Son3 = Cells(2222, "I").End(xlUp).Row
For i = 2 To Son3
If Range("h" & i).Value <> "" And Range("h" & i).Value = 1 Then Range("g" & i).Interior.ColorIndex = 5
If Range("h" & i).Value <> "" And Range("h" & i).Value <> 1 Then Range("g" & i).Interior.ColorIndex = 3
If Range("h" & i).Value = "" Then Range("g" & i).Interior.ColorIndex = xlNone

Next
Application.ScreenUpdating = True
End Sub

3. formül

For i = 2 To Son1
If Range("I" & i).Value <> "" Then
If Range("I" & i).Value = 1 Then Range("J" & i).Value = "bir"
If Range("I" & i).Value = 2 Then Range("J" & i).Value = "iki"
If Range("I" & i).Value = 3 Then Range("J" & i).Value = "üç"
If Range("I" & i).Value = 4 Then Range("J" & i).Value = "dört"
If Range("I" & i).Value = 5 Then Range("J" & i).Value = "beş"
Else
Range("j" & i).Value = ""
End If
Next
End Sub

4. formül
Sub formul2()
Son2 = Cells(2222, "I").End(xlUp).Row
For i = 2 To Son2
If Range("I" & i).Value >= 7 And Range("H" & i).Value = 1 Then Range("P" & i).Value = Range("O" & i).Value
If Range("I" & i).Value < 7 And Range("H" & i).Value = 2 Then Range("P" & i).Value = 0
If Range("H" & i).Value <> 1 Then Range("P" & i).Value = 0
If Range("H" & i).Value = "" Then Range("P" & i).Value = ""
If Range("I" & i).Value <= 6 And Range("H" & i).Value = 1 Then Range("Q" & i).Value = Range("O" & i).Value * 0.82
If Range("I" & i).Value > 6 And Range("H" & i).Value = 2 Then Range("Q" & i).Value = 0
If Range("H" & i).Value <> 1 Then Range("Q" & i).Value = 0
If Range("H" & i).Value = "" Then Range("Q" & i).Value = ""
If Range("O" & i).Value > "" And Range("L" & i).Value > "" Then Range("N" & i).Value = (Range("O" & i).Value / Range("L" & i).Value) + 1
Next
Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Merhaba,

Söylediğinizde bir gariplik var. Dosyanızda sayfa kodları çalışıp modül kodlarının çalışmaması gibi bir durum olmaması gerekir. Çalışmıyorsa hiçbirisi çalışmaz. Ya da çalışıyorsa hepsi çalışır.

Şöyle birşey olabilir. Kodlar sizin istediğiniz gibi çalışmıyordur. Düzenlemek istiyorsunuzdur...

Bunun içinde örnek dosya ekleyip açıklama yapmalısınız...

 

[ahzola]

Merhaba,

Söylediğinizde bir gariplik var. Dosyanızda sayfa kodları çalışıp modül kodlarının çalışmaması gibi bir durum olmaması gerekir. Çalışmıyorsa hiçbirisi çalışmaz. Ya da çalışıyorsa hepsi çalışır.

Şöyle birşey olabilir. Kodlar sizin istediğiniz gibi çalışmıyordur. Düzenlemek istiyorsunuzdur...

Bunun içinde örnek dosya ekleyip açıklama yapmalısınız...

Sayın Ayhan

değerli üstadım. evet dediğiniz gibi gariplik var.
sayfa kodu yada modül kodu olarak izah etmemin sebebi
kodların tamamının çalışmaması içindir.
daha önce defalarca kullandım herhangi bir sorunum yoktu.
düzenleme olayı yok yani.
ama yazdıklarım gerçek. Ne oldu ise formattan sonra
oldu. dosyayı oluşturduğum excel yerine başkasının yüklediği excel
ile açtıktan sonra çalışmamaya başladı.

şimdi dosyaları oluşturduğum exceli yükledim ama nafile.

üst postlarda da izah ettiğim gibi yukarıdaki kodları çalıştırmak istiyorum.
şayet kodların tam olarak ne görev yaptığı anlaşılmaz ise izah yaparım.
yok dosya ekleyin derseniz. dosyada eklerim.

siz değerli üstadlardan ve diğer user dostlardan yardım bekliyorum.

 

[takin]

Excel kurulumu yapılırken Visual Basic Application eklentisi yüklenmemiş olabilir.

 

[ahzola]

sn @takin
nasıl kontrol edebilirim bunu acaba.

extra yüklenen birşey ise yüklemedim.

revo uninst.
frontpage gözüküyor sadece yüklü olarak

 

[takin]

Ekstra yüklenen bir program değil. Excel yüklenirken seçiliyor. Belki Standart yüklemede yüklenmemiş olabilir. Alt+F11 ile kod alanına ulaşabiliyor musun?

Kod alanı penceresinde Tools > Referances içine bak. Visual Basic Application seçili olmalı.

 

[ahzola]

Merhabalar;

Bilgisayara tekrar format atarak sorunu halletmiş bulunmaktayız.

Alaka gösteren düm canlara
teşekkürler.
hoşçakalın.