Aynı sayfa için birden çok sayıda private makro

[cebelitarık]

Foruma üye herkesin geçmiş bayramını kutluyorum.
Değerli arkadaşlar.

Aynı sayfa için geçerli olmak üzere birden fazla sayıda private makroyu sayfaya nasıl yazarız.
Örneğin aşağıdaki 3 makro aynı anda yazıldığında hata veriyor.
ilgilenecek arkadaşlara teşekkür ederim.

1. makro
'BÜYÜK HARFE ÇEVİRME MAKROSU
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

2. makro
'Enter tuşu yönlendirme makrosu
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 8 Then
Target.Offset(1, -7).Select
Else
Target.Offset(0, 1).Select
End If
Son:
End Sub

3. makro
'DEĞER GİRİLEN SATIRLARA SIRA NUMARASI VERME
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Dim i As Long, sr As Long
[A2:A500].ClearContents
For i = 2 To [D500].End(3).Row
If Not Cells(i, 4) = "" Then
sr = sr + 1
Cells(i, 1) = sr
End If
Next
DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True
End Sub

 

[iaydin20]

1. makro
'BÜYÜK HARFE ÇEVİRME MAKROSU
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
On Error GoTo Son
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 8 Then
Target.Offset(1, -7).Select
Else
Target.Offset(0, 1).Select
End If
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Dim i As Long, sr As Long
[A2:A500].ClearContents
For i = 2 To [D500].End(3).Row
If Not Cells(i, 4) = "" Then
sr = sr + 1
Cells(i, 1) = sr
End If
Next
DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True
End Sub

böyle bi dene bakalım olma ihtimali var

 

[cebelitarık]

sayın iaydın 20 ilgin için teşekkür ederim.
önerini denedim.
"label not defined" hatası veriyor.

bu üç makroyu bir arada hata verdirmeden çalıştırmak istiyorum
yardımcı olacak arkadaşlara müteşekkirim.

1. makro
'BÜYÜK HARFE ÇEVİRME MAKROSU
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
On Error GoTo Son
'ENTER TUŞU YÖNLENDİRME MAKROSU
If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
If Target.Column = 8 Then
Target.Offset(1, -7).Select
Else
Target.Offset(0, 1).Select
End If
'D SÜTUNUNA VERİ GİRİLDİĞİNDE SIRA NUMARASI VERME MAKROSU
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Dim i As Long, sr As Long
[A2:A500].ClearContents
For i = 2 To [D500].End(3).Row
If Not Cells(i, 4) = "" Then
sr = sr + 1
Cells(i, 1) = sr
End If
Next
End Sub

 

[cebelitarık]

Tekrar merhaba
Target = UCase(Target)
satırı birkre hata verdimi diğer makrolarda artık hiç çalışmıyor
excel itüm kapatıyorum yeni bir sayfaya kodları kopyalıyorum biraz çalışıyor
target satırı bir hata yaptımı bi daha çalışmıyor
arkadaşlar yardım lütfen

 

[cebelitarık]

selam arkadaşlar
sorunuma bir çare bulacak arkadaşın ilgisini bekliyorum.

 

[iaydin20]

merhaba;
kardeş çalışma yaptığın dosyayı ekle bide öyle bakalım yapabileceğim bişey varsa elimden geleni yaparım

 

[Necdet]

Merhaba,

Sayın cebilitarık, makroları arka arkaya vermektense tam olarak ne yapmak istediğinizi söylerseniz sanırım daha iyi anlaşılır.

Örneğin hangi sütunda yazılanları büyük harfe çevirmek istiyorsunuz.
Hangi sütunda sıra numarası istiyorsunuz.
Hangi sütundan sonra bir alt satıra geçip devam etmek istiyorsunuz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 1 Then Target = UCase(Target)
If Not Intersect(Target, [d:d]) Is Nothing Then
[A2:A500].ClearContents
For i = 2 To [D500].End(3).Row
If Not Cells(i, 4) = "" Then
sr = sr + 1
Cells(i, 1) = sr
End If
Next
End If
If Not Intersect(Target, [A:H]) Is Nothing Then
If Target.Column = 8 Then
Target.Offset(1, -7).Select
Else
Target.Offset(0, 1).Select
End If
End If
Application.EnableEvents = True
End Sub

 

[cebelitarık]

Sayın Leventm çok teşekkür ederim
sorunum bu konuda çözüldü.
diğer sorun için "Veri sayfasından 2 farklı rapor" isminde yeni topik açtım
ilgilenirseniz müteşekkir kalırım.

 

[hsayar]

selamlar burada gördüğüm için burada soruyorum

Application.EnableEvents = False

satırının anlamı nedir?

 

[Levent Menteşoğlu]

selamlar burada gördüğüm için burada soruyorum

Application.EnableEvents = False

satırının anlamı nedir?

Olayın sadece bir kez çalışmasını sağlar diğer bir deyişle sonsuz döngüye girmesini engeller.

 

[hsayar]

teşekkür ederim sn. leventm