a1 sutununa yazdıgım baslığa göre bcdefg sutunları değişsin

[xcoll]

a1 sutununa yazdıgım baslığa göre bcdefg sutunları değişsin ektekı ddosya gıbı bır tablo var elımde a1 sutununa yazacaklarım eger aynısından olursa bcdefg sutunları otomatık gelsın yapabılırmıyım boyle bişey

 

[uzmanamele]

merhaba
aynı tablo içersinden mi bulacak yoksa başka biryerden mi bilgileri alacak?

düşeyara fonksiyonu kullanabilirsiniz.

 

[xcoll]

yok aynı sayfada

örnegğin 100.satıra kadar yazdım bunu boyle 101 satırda yıne a1 yada a2 yada a3... dekılerden bırını yazarsam dıger sutunlardakını otomoktik getırdın ıstıyoeum

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then
    Set BUL = Range("A1:A" & Target.Row - 1).Find(Target)
    If Not BUL Is Nothing Then
    Application.EnableEvents = False
    Range("A" & BUL.Row, "H" & BUL.Row).Copy Range("A" & Target.Row, "H" & Target.Row)
    Application.EnableEvents = True
    End If
    Set BUL = Nothing
    End If
End Sub

 

[hurkanpisirici]

Merhaba

Set BUL = Range("A1:A" & Target.Row - 1).Find(Target)

A2 hücresine MERT yazdım bu satır hata verdi hocam.

 

[Korhan Ayhan]

Selamlar,

Hürkan bey,

Kodu dediğiniz şekilde denedim bende bir hata oluşmadı. Sadece kodu adımlayarak çalıştırdımda hücre değişiminden dolayı kısır döngüye giriyordu. Bu olayı düzelterek dosyayı yeniledim. İncelermisiniz.

 

[hurkanpisirici]

Teşekkürler hocam.İyigeceler.

 

[xcoll]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then
    Set BUL = Range("A1:A" & Target.Row - 1).Find(Target)
    If Not BUL Is Nothing Then
    Application.EnableEvents = False
    Range("A" & BUL.Row, "H" & BUL.Row).Copy Range("A" & Target.Row, "H" & Target.Row)
    Application.EnableEvents = True
    End If
    Set BUL = Nothing
    End If
End Sub

ben bu kodu sayfaya yapıştırdım a50 sutununa yazdım ilk 50 olan bir nmetnı yazdım ama bcdefg sutunlarındakını almadı neden olabılırkı acaba

 

[Korhan Ayhan]

Selamlar,

Makroları etkinleştirmemiş olabilir misiniz ?

 

[xcoll]

yok açılışta etkinleştir dıyor etkinleştiriyorum

hatta Görünümden - Makrolara girip ekledıgım makroyu bulup çalıştır dıyorum yıne olmuyor

bu yazdıgın kodu rica etsem xla uzantılı olarak eklermısın

yada ben bunu nasıl oyle kayıt edebılırım yenı bır modul acıp yazdım bu kodu farklı kayıt et nasıl yapıp uzantısını xla yapcam

 

[Korhan Ayhan]

Selamlar,

Sn. xcoll,

Dikkat ederseniz cevabımda örnek dosyada eklemiştim. Örnek dosyadaki şekliyle kullanmalısınız. Kod modül kodu değildir. Sayfaya ait bir koddur ve sayfanın arka planında çalışmaktadır.

 

[xcoll]

ok tşk ederim.