Kod Başlığı

[ormann]

Sayın arkadaşlar şağıdaki sayfanın kod bölümünde kullanmış olduğum makro kodu başlığını yine aynı sayfada 3 kez nasıl kullanabilirim ?

Private Sub Worksheet_Change(ByVal Target As Range)

 

[Orion1]

sub prosedürün içinde döngüye girin.

for i = 1 to 3
   msgbox "Evren " & i
next

Sayın arkadaşlar şağıdaki sayfanın kod bölümünde kullanmış olduğum makro kodu başlığını yine aynı sayfada 3 kez nasıl kullanabilirim ?

 

[ormann]

Sub End yazan yerin altına bu kodumu yazacağız Evren Bey;

 

[ormann]

Evren Bey, örnek dosyayı göndersem uygulayabilirmisiniz ?

 

[Orion1]

Sub End yazan yerin altına bu kodumu yazacağız Evren Bey;

evet oraya yazacaksınız.

 

[s.çakır]

Selam

EVREN Hocam yine ben ya biliyorum çok oluyorum ama öğrenmek istiyorum sorum ekte bakarsanız sevinirim.

 

[ormann]

Sayın Evren Bey kodu ekledim ama diğer satırlarda işlem yapmadı

 

[Orion1]

Sayın Evren Bey kodu ekledim ama diğer satırlarda işlem yapmadı

Dosyanız ektedir.

On Error Resume Next
    If Target.Column = 1 Then
        Sheets("a4").Cells(Target.Row, "A").Value = Target.Value
        Sheets("a5").Cells(Target.Row, "A").Value = Target.Value
    End If

 

[ormann]

Sayın Evren Bey benim demek istediğim veri sayfasında a1 hücresine veri girdiğim zaman a4 ve a5 sayfasında a12 satırında girelen metnin uzunluğuna göre açılma oluyor.Yine aynı şekilde ver i sayfasından a2,a3,a4 hücrelerine veri girdiğimde a4 ve a5 sayfasında a13,a14,15 satırlarındada açılma olması idi