Seçilen Tabloyu Başka Sayfaya Taşımak

[x_mayhem_x]

Herkese merhabalar,
Yapmak istediğim şey çok kolay ama bir türlü yapamadım,
Ekte örneği ekledim sayfa1 deki bilgileri tıklayarak sayfa2 deki şablona ilgili hücrelere getirmek istiyorum. Kullanacam Kodu yada çalışan halini paylaşırsanız sevinirim.

 

[mustafaine1]

hyperlink fonksiyonunu kullanabilirsiniz

c2 icin =HYPERLINK(Sayfa2!B2)

f11 icin =HYPERLINK(VLOOKUP(VALUE(C2),Sayfa2!B2:E25,2))

c11 icin =HYPERLINK(VLOOKUP(VALUE(C2),Sayfa2!B2:E25,3))

b11 icin =HYPERLINK(VLOOKUP(VALUE(C2),Sayfa2!B2:E25,4))

 

[Necdet]

Herkese merhabalar,
Yapmak istediğim şey çok kolay ama bir türlü yapamadım,
Ekte örneği ekledim sayfa1 deki bilgileri tıklayarak sayfa2 deki şablona ilgili hücrelere getirmek istiyorum. Kullanacam Kodu yada çalışan halini paylaşırsanız sevinirim.

Sayfa1 den Sayfa2 ye mi, yoksa tersi mi olacak? Sanki Sayfa2 den Sayfa1 e aktarılacak gibi algılıyorum.

 

[x_mayhem_x]

Sayfa1 den Sayfa2 ye mi, yoksa tersi mi olacak? Sanki Sayfa2 den Sayfa1 e aktarılacak gibi algılıyorum.

Necdet bey merhaba,
aynen dediğiniz gibi sayfa2 deki iligli ürün kodunu tıklayınca sayfa1 deki ilgili yerlere yazmasını istiyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa2 nin kod bölümüne kopyalayınız. Sayfa2 de herhangi bir hücrede (1. satır hariç) çift tıkladığınızda bilgiler sayfa1 deki hücrelere aktarılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
If Range("B" & Target.Row) = "" Then Exit Sub
Sheets("Sayfa1").Range("C2") = Range("B" & Target.Row)
Sheets("Sayfa1").Range("F11") = Range("C" & Target.Row)
Sheets("Sayfa1").Range("D11") = Range("D" & Target.Row)
Sheets("Sayfa1").Range("B11") = Range("E" & Target.Row)
End Sub

 

[x_mayhem_x]

Merhaba,

Aşağıdaki kodları Sayfa2 nin kod bölümüne kopyalayınız. Sayfa2 de herhangi bir hücrede (1. satır hariç) çift tıkladığınızda bilgiler sayfa1 deki hücrelere aktarılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
If Range("B" & Target.Row) = "" Then Exit Sub
Sheets("Sayfa1").Range("C2") = Range("B" & Target.Row)
Sheets("Sayfa1").Range("F11") = Range("C" & Target.Row)
Sheets("Sayfa1").Range("D11") = Range("D" & Target.Row)
Sheets("Sayfa1").Range("B11") = Range("E" & Target.Row)
End Sub

Necdet Bey merhaba, öncelikle ilginiz ve yardımız için çok teşekkür ederim. Kısa bir şey daha sormak istiyorum, bu kodları yazarken alt+ F11 ile girdiğim kod sayfasına nasıl yapıştırmam gerekiyor bir makro gibi mi yazacağım yapmaya çalıştım ama pek başarılı olamadım malesef çalıştıramadım. Vaktiniz olurda zaman ayırırsanız çok sevinirim.

 

[Necdet]

Merhaba,

Sayfa2 sekmesine gelip sağ tıklayın, kod görüntüleyi seçin ve yukarıdaki kodları yapıştırınız.

 

[x_mayhem_x]

Çok teşekkür ederim Necdet Bey,
İsteğimi yazmış olduğunuz kodlar sayesinde yapabildim.

 

[Necdet]

Güle güle kullanınız.