Makro düzenlemesi hakkında

[drummers]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ara As Range
If Intersect(Target, Range("T10")) Is Nothing Then Exit Sub
Set ara = Sheets("Düzen").Range("B2:B65536").Find(Range("T10").Value, , xlValues, xlWhole)
If Not ara Is Nothing Then


Range("E16").Value = Sheets("Düzen").Cells(ara.Row, "G").Value
Range("M10").Value = Sheets("Düzen").Cells(ara.Row, "L").Value

End If
End Sub



Yukarıdaki makro "Düzen" sekmesinde "T10" hücresini baz alarak düşeyara formülünü uygulamakta.



T10 dan isim seçiyorum E16 ya bir veri geliyor M10 a bir veri geliyor


benim istediğim şudur: ben aynı sayfada "C10" hücresinide baz alarak düzeyara uygulaması yapmak istiyorum.
Yani kısacası yukarıdaki formüle C10 eklenecek C10 daki ismi seçersem ilgili yerlere ilgili verilere aktarılacak.



Teşekkürler

 

[İhsan Tank]

örnek dosya ekler misiniz

 

[Orion1]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ara As Range
If Intersect(Target, Range("C10,T10")) Is Nothing Then Exit Sub
Set ara = Sheets("Düzen").Range("B2:B65536").Find(Target.Value, , xlValues, xlWhole)
If Not ara Is Nothing Then
    Range("E16").Value = Sheets("Düzen").Cells(ara.Row, "G").Value
    Range("M10").Value = Sheets("Düzen").Cells(ara.Row, "L").Value
End If
End Sub

 

[drummers]

Hücre isimlerini yanlış vermişim, pardon

ekli dosyada "vergilevhası1" sekmesini incelerseniz ne demek istediğimi anlıyacaksınız. teşekkürler

 

[Orion1]

C10 ve T10 birbirinden bağımsız çalışmalı sayın GİZLEN.

C10 daki ismi seçtiğimde T10 u ilgilendiren hücrelere verileri aktarmamalı


Teşekkürler

Zaten öyle
C10 seçersen C10 da seçtğin veri alınıyor.
T10 seçersen T10 seçtiğn veriler alınıyor.

 

[drummers]

2. nolu mesajıma dosya ekledim. Bakabilirmisiniz

 

[Orion1]

Ben bir şey anlamdım.
Sayfa üzerinde ne yapacağınızı yazmamışsınız.
Sadece sayfa modülünde kodlar var.
Onlarıda yanlış yazıyorsunuz.Ona bakıp yapınca olmuyor.
Sayfa üzerinde neyi nerden alacak yazmalısınız.
Ayrıca adısoyadı ile tanımladığınız alana da uyduruk veri girin bir miktar.
Bizde kontrol edelim.

 

[drummers]

Örnek dosya üzerinde açıklama mecvut

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ara As Range
If Intersect(Target, Range("BK24,BK29,BK34")) Is Nothing Then Exit Sub
On Error Resume Next
Set ara = Sheets("Düzen").Range("K2:K65536").Find(Target.Value, , xlValues, xlWhole)
If Not ara Is Nothing Then
    Target.Offset(1, 0).Value = Sheets("Düzen").Cells(ara.Row, "L").Value
    Target.Offset(2, 0).Value = Sheets("Düzen").Cells(ara.Row, "M").Value
    Cells(Target.Row + 2, "BW").Value = Sheets("Düzen").Cells(ara.Row, "N").Value
    Target.Offset(3, 0).Value = Sheets("Düzen").Cells(ara.Row, "O").Value
    Cells(Target.Row + 3, "BP").Value = Sheets("Düzen").Cells(ara.Row, "P").Value
    Cells(Target.Row + 3, "BW").Value = Sheets("Düzen").Cells(ara.Row, "Q").Value
    Target.Offset(4, 0).Value = Sheets("Düzen").Cells(ara.Row, "W").Value
    Cells(Target.Row + 4, "BU").Value = Sheets("Düzen").Cells(ara.Row, "R").Value
End If
End Sub

 

[kemalist]

sayın evren ilgilenirseniz sevinirim.
http://www.excel.web.tr/showthread.php?p=482752#post482752