Hücreye girilen bilgiyi diğer sayfada ilgili yere hemen aktarma

[jajiyiko]

Merhaba!

Öncelikle bütün herkesin geçmiş bayramını kutlarım.

Benim sorunum şu;

Ekteki dosyada sayfa1 de 1' den 16' ya kadar olan başlıkların altına ismi yazılı şahısa ait "E" veya "H" harfi koyuyorum. Bu harfleri sayfa2 'ye şahsın numarasına bakarak mesela 3 nolu başlıktaysa 3 'e , 10 no.lu başlıktaysa 10 ' a yazmalı .

şimdiden teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Numaraların mükerrer olma ihtimali var mı ?

. . .

 

[jajiyiko]

hayır numaralar mükerrer değil

merhaba!

ilginize teşekkür ederim

Numaralar mükerrer değil. Ben de oradan yola çıkarak worksheet_change ile birşeyler yapmaya çalıştım ama başaramadım.

teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Sayfa1' in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row

If WorksheetFunction.CountA(Range("E" & sat & ":T" & sat)) > 0 Then

For i = 2 To Sayfa2.[H65536].End(3).Row
If Range("D" & sat) Like Sayfa2.Cells(i, "H") Then
Range("E" & sat & ":T" & sat).Copy Sayfa2.Cells(i, "I")
Else: End If
Next i

Else: End If
End Sub

. . .

 

[jajiyiko]

Hüseyin bey çok teşekkür ederim. İstediğim gibi olmuş.Sağolun.

Şu an lazım değil ama kapalı bir excel dosyasına da böyle aktarma yapabilirmiyiz?



Sağolun

 

[Emir Hüseyin Çoban]

. . .

Yapılırda, şuan için beni aşar.

. . .

 

[jajiyiko]

Tekrar teşekkür ederim