Excelde verileri tekrar tekrar yazmak

[byseqkan]

Merhabalar ismim serkan;
Sorum şu olacak tı?

Şimdi

S.No Adı Soyadı Numara
1 a. kaya xxx
2 m.kaya xdx
3 k.kaya d12

ilk sayfaya bunları gireceğim..
yalnız ikinci sayfada kişinin ismini yazınca

S.No Adı Soyadı Numara
------------------------------------
1 a.kaya xxx

kişinin ismini yazdığım zaman ikinci sayfada tekrar tekrar yazmak yerije
isim girdiğim zaman "a.kaya" sıra no ve numarasını otomatik olarak yazmak istiyorum. Yalnız hangi satıra girdiğim fark etmiyecek...

Umarım yardımcı olursunuz.. Şimdi tşk ederim saygılarımla
byseqkan

 

[Mustafa MUTLU]

=düşeyara(a2;Sayfa1!a2;z65500;2;0)
a2; Sayfa2 de isim yazacağın Hücre
2 Sayfa1 den çağırmak istediğin verinin olduğu sütun
2 değeri B sütununu çağırır 3 yazarsan D sütununu çağırır.

 

[byseqkan]

=düşeyara(a2;Sayfa1!a2;z65500;2;0)
a2; Sayfa2 de isim yazacağın Hücre
2 Sayfa1 den çağırmak istediğin verinin olduğu sütun
2 değeri B sütununu çağırır 3 yazarsan D sütununu çağırır.

bu şekilde demek istemedim. Ben birinci sayfaya verileri gireceğim,

s.no adı soyadı telefon adres

ikinci sayfada ben kişinin adı ve soyadını yazınca

s.no, telefon ve adres bilgileri tanımlı olduğundan ikinci sayfanın aktif satırında görmek istiyorum. Arama yapmak değil..

 

[dorucoglu]

Serkan merhaba,

Bir incele bakalım istediğin gibi olmuş mu?

Sub veri_cagirma()


a = UCase(ActiveCell.Offset(-1, 0))

satır = 2
Do Until Sheets("Anasayfa").Cells(satır, 1) = ""

If UCase(Sheets("Anasayfa").Cells(satır, 2)) = a Then
sr_no = Sheets("Anasayfa").Cells(satır, 1)
telefon = Sheets("Anasayfa").Cells(satır, 3)
End If

satır = satır + 1
Loop

ActiveCell.Offset(-1, 1) = sr_no
ActiveCell.Offset(-1, 2) = telefon

'değerleri yazmak istediğin sabit alan varsa koordinatlarını girebilirsin.
ActiveCell.Offset(-2, 0) = "Adı Soayadı"
ActiveCell.Offset(-2, 1) = "Sıra No"
ActiveCell.Offset(-2, 2) = "Telefon No"



End Sub

 

[gicimi]

Serkan merhaba,

Bir incele bakalım istediğin gibi olmuş mu?

Sub veri_cagirma()


a = UCase(ActiveCell.Offset(-1, 0))

satır = 2
Do Until Sheets("Anasayfa").Cells(satır, 1) = ""

If UCase(Sheets("Anasayfa").Cells(satır, 2)) = a Then
sr_no = Sheets("Anasayfa").Cells(satır, 1)
telefon = Sheets("Anasayfa").Cells(satır, 3)
End If

satır = satır + 1
Loop

ActiveCell.Offset(-1, 1) = sr_no
ActiveCell.Offset(-1, 2) = telefon

'değerleri yazmak istediğin sabit alan varsa koordinatlarını girebilirsin.
ActiveCell.Offset(-2, 0) = "Adı Soayadı"
ActiveCell.Offset(-2, 1) = "Sıra No"
ActiveCell.Offset(-2, 2) = "Telefon No"



End Sub

Merhaba;

Olmamış, isim girişi yaptığınızda başlık bilgilerini de getiriyor. O yüzden daha önce çağırılan değerleri siliyor.