kod uyumsuzluğu mu?

[inowjoin]

hazırlamış olduğum bir sayfada kullandığım kodlarda ;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Target.Value = StrConv(Kelime, vbUpperCase)
End Sub

kodlarını kullandığım zaman toplu kopyalama yapıştırma sürükleyerek yapıştırma fonksiyonlarını yapamıyorum tüm kodları aşağıda verdim acaba bunun sebebi nedir?


Private Sub CommandButton2_Click()
Sheets("Sayfa1").Select
ActiveWindow.SmallScroll Down:=-102
End Sub

Private Sub CommandButton3_Click()
X = [c2000].End(3).Row
Cells(X + 1, 1).Select
End Sub

Private Sub CommandButton4_Click()
MsgBox "Geri dönüşü olmayacak şekilde kaydedilecek", , "UYARI"
ActiveWorkbook.Save
End Sub

Private Sub CommandButton5_Click()
Cells(7, 1).Select
End Sub

Private Sub CommandButton6_Click()
Sheets("Sayfa1").Select
ActiveWindow.SmallScroll Down:=-102
End Sub

Private Sub CommandButton7_Click()
MsgBox "Geri dönüşü olmayacak şekilde kaydedilecek", , "UYARI"
ActiveWorkbook.Save
End Sub

Private Sub CommandButton8_Click()
X = [c2000].End(3).Row
Cells(X + 1, 1).Select
End Sub

Private Sub CommandButton9_Click()
Cells(7, 1).Select
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
METİN4 = TextBox1.Value
Set FC2 = Range("c8:cg2000").Find(What:=METİN4)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Value & "*"
If METİN4 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Target.Value = StrConv(Kelime, vbUpperCase)
End Sub

 

[Recep İpek]

Bu makro ile sadece değişiklik yaptığınız hücrede işlem yapabilirsiniz.
Yani seçili hücrelerin tümünde işlem yapamazsınız.Bunun yerine seçili hücrelerde işlem yaptıracak aşağıdaki linkteki makroyu kullanabilirsiniz.

http://www.excel.web.tr/showthread.php?t=22066

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsEmpty(Target) Or InStr(1, Target.Address, ":") <> 0 Then Exit Sub
    If Application.CutCopyMode = xlCopy Then Exit Sub
    If Application.CutCopyMode = xlCut Then Exit Sub
    Kelime = Replace(Target.Value, "i", "&#304;")
    Kelime = Replace(Kelime, "&#305;", "I")
    Target.Value = StrConv(Kelime, vbUpperCase)
End Sub

 

[inowjoin]

ya harikasınız valla cost_control işime yaradı kodlar
teşekkürler