büyük küçük harf makronusunda değişiklik

[gedavet]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, deg, deg2 As String
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False

Target.Value = WorksheetFunction.Proper(Target.Value)
deg = Split(Target.Value, " ")
For i = LBound(deg) To UBound(deg) - 1
deg2 = deg2 & " " & deg(i)
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ı", "I"), "i", "İ"))
Target.Value = Right(Target.Value, Len(Target.Value) - 1)

Application.EnableEvents = True
End Sub

BURDA İKİ MAKRO VAR BİRNCİSİ BÜÜYK HARF YAPIYOR İKİNCİSİ İSİMLERİ KÜÇÜK SOYİSİMLERİ BÜYÜK YAPIYOR
YAPMAK İSTEDİĞİM İKİSİNİ BİRLEŞTİRİP A SÜTÜNUNA YAZDIKLARIMI BİRİNCİ MAKRO OLSUN B SÜTÜNUNA YAZDIKLARIMIDA İKİNCİ MAKRO İŞLEM GÖRSÜN

 

[turk-x]

Selam ;

If Target.Column= 1 Then 
1. makronun kodları
elseif Target.Column= 2 Then
2.Makronun kodları 
end if

şeklinde kodlamayı değiştirirsen sorun çözülür.
Örnek dosyayı inceleyin

 

[gedavet]

ilginiz için teşekkür ederim ekdeki dosyada kod değiştirilmiş şeklimi ben ekdeki dosyada kodu değiştirecekmiyim

 

[turk-x]

ekteki dosya hazır bi şekilde çalışıyo
deneyin..

 

[gedavet]

çok teşekkür ederim makro düzenleme ve uyarlama diye bir konum var orayada yardımcı olabilirmsiniz

 

[gedavet]

turk-x bey örnekde işlem yapıyor benim çalışmamdaki sayfamda örnek b12:b65536 kadar büyük c12:c65536,k12:k65536 a il k dekileride ikinci makro olmasını istiyorum siizn örnekteki a yı b yaptım 2. a yıda c ile k yaptım olmuyor

 

[turk-x]

Kodlamadaki : If Target.Column= 1 ve If Target.Column= 2 satırlarını bulun
Target.Column= 1 A Sütünunda da işlem yapılıyorsa demek oluyor.

yani siz birinci makronun A C E gibi farklı sütunlarda çalıştırmak isterseniz kodu

if Target.Column= 1 or Target.Column= 3 or Target.Column= 5 then şeklinde kullanmalısınız.

Kodlamadaki
' If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub kodunu siz dikkate almayın. o kodun başında tektırnak işareti olduğu için işlevsizdir.

 

[gedavet]

az önceki yazdığım sütünlara göre makroyu uyarlaya bilirmisiniz

 

[turk-x]

Buyrun

2 dosya ekliyorum birisi a ve k sütunlarını dikkate alıyor
diğeri b ve k sütunu dikkate alıyor.

tam olarak hangi sütunları istediğinizi belirtirseniz yardımcı olurum.