modüldeki kot ile sayfadaki kod neden farklı çalışır?

[uzmanamele]

merhaba
çok sayıda sayfadan oluşan çalışma kitabımda, her sayfa için çok sayıda makro bulunmakta. kodları sayfanın kod bölümde birleştirince sorun çıkmasın diye modüllere yazıp oradan çağırıyorum.

ektedi dosyada normal sayfada, kodları sayfanın kod bölümüne yazınca sorunsuz çalışıyor. diğer sayfa için modülden çağırınca Call Sekillendir(Target) satırında hata veriyor, nasıl düzeltebilirim?

not: ne işe yarıyor; C sütununa yazılan kodlara göre D deki metni düzenleyen ve renklendiren makro kodu.

 

[uzmanamele]

merhaba
aşağıdaki kodda mavi renkli kodlar iptal edilecek, dikkate almayın

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo f1
Select Case Target.Column
Case 3
If Target = Empty Then: GoTo f1
arrchar = Array("/", ".", ",", "-", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
If Len(Target) = 5 Then
For i = 0 To 3
If Mid(Target.Value, 3, 1) = arrchar(i) Then: x = x + 1
Next i
If x = 0 Then
MsgBox "XX.XX gibi bir değer girmeniz gerek", vbCritical, "UYARI"
x = 0
Target = Empty
Target.Select
GoTo f1
End If
Else
MsgBox "Toplam 5 karakter uzunluğunda bir kodlama yapmalısınız" _
& vbCrLf & "XX.XX gibi ...", vbCritical, "UYARI"
Target = Empty
Target.Select
GoTo f1
End If
For i = 1 To Len(Target)
For j = 0 To UBound(arrchar)
If Mid(Target, i, 1) = arrchar(j) Then: x = x + 1
Next j
If x = 0 Then
MsgBox "Girdiğiniz veri, kurallara uygun değil", vbCritical, "UYARI"
Target = Empty
Target.Select
Exit For
End If
x = 0
Next i
For i = 2 To Cells(65536, 3).End(xlUp).Row
If Target.Address <> Cells(i, 3).Address Then
If Cells(i, 3) = Target Then
MsgBox "Bu de&#287;erden zaten bir tane var", vbCritical, "UYARI"
Target = Empty
Target.Select
GoTo f1
End If
End If
Next i

Call Sekillendir(Target.Offset(0, 1))
Case 4 'D s&#252;tununa veri giri&#351;i yap&#305;l&#305;rsa
Call Sekillendir(Target) 'hata veren sat&#305;r
Cells(65536, 4) = Target
With Cells(65536, 4)
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
' .EntireRow.AutoFit
End With
Rows("65536:65536").EntireRow.AutoFit
If Rows("65536").RowHeight > Rows(Target.Row).RowHeight Then
Rows(Target.Row).RowHeight = Rows(65536).RowHeight
Else
Rows(Target.Row).RowHeight = 30
End If
End Select

If Target.Column = 3 And Target.Row > 25 Then
If Sheets("nakit").Range("B" & Target.Row) = Empty Then
With Sheets("nakit")
.Cells(Target.Row, 1).EntireRow.Insert
.Cells(Target.Row, "B").Formula = "=KE&#350;&#304;F!C" & Target.Row
.Cells(Target.Row, "C").Formula = "=KE&#350;&#304;F!D" & Target.Row
.Cells(Target.Row, "D").Formula = "=KE&#350;&#304;F!E" & Target.Row
.Cells(Target.Row, "E").Formula = "=KE&#350;&#304;F!F" & Target.Row
End With
End IfEnd If
f1:
Application.EnableEvents = True
End Sub
Sub Sekillendir(hcr As Range)
If Right(Cells(hcr.Row, 3), 2) = "00" Then
Cells(hcr.Row, 4) = UCase(Replace(Replace(Cells(hcr.Row, 4), "&#305;", "I"), "i", "&#304;"))
Cells(hcr.Row, 4).Font.ColorIndex = 3
Cells(hcr.Row, 3).Font.ColorIndex = 3
ElseIf Right(Cells(hcr.Row, 3), 2) = Empty Then
Cells(hcr.Row, 4).Font.ColorIndex = 1
Cells(hcr.Row, 3).Font.ColorIndex = 1
Cells(hcr.Row, 4).Select
Else
Cells(hcr.Row, 4) = Application.WorksheetFunction.Proper(hcr)
Cells(hcr.Row, 4).Font.ColorIndex = 5
Cells(hcr.Row, 3).Font.ColorIndex = 5
End If
End Sub

 

[uzmanamele]

soru ve örnek dosya değişti

merhaba
soruyu ve örnek dosyayı değiştirdim
çok sayıda sayfadan oluşan çalışma kitabımda, her sayfa için çok sayıda makro bulunmakta. kodları sayfanın kod bölümde birleştirince sorun çıkmasın diye modüllere yazıp oradan çağırıyorum.

yapmak istediğim; normal sayfada sorunsuz çalışan kodları bir modüle taşıyarak, modül sayfasının kod bölümünden çağırmak. benzer şekilde birkaç kod mevcut olduğu için sayfanın kod bölümünde birleştirmek sorun yaratıyor.

not: ne işe yarıyor; C sütununa yazılan kodlara göre D deki metni düzenleyen ve renklendiren makro kodu.

 

[uzmanamele]

merhaba
bu konu kimsenin ilgisini &#231;ekmedi mi acaba?

 

[uzmanamele]

merhaba
konuyu g&#252;ndemde tutmaya &#231;al&#305;&#351;&#305;yorum,
mod&#252;lden makroyu &#231;a&#287;&#305;rmak i&#231;in nas&#305;l bir yol &#246;nerirsiniz?

 

[sadeje]

walla ben okudum ama yeni &#246;&#287;reniorm bi yorum yapamad&#305;m