Sayfalar arası bağlantı sağlama

[muhasebeci315]

Merhaba arkadaşlar Sayfalar arası bağlantıyı yapamadım.

Anlatayım...

Arkadaşlar benim yapmak istediğim bir listenin her bir satırı için ayrı işaretleme kutucuğu oluşturup sayfa 2 deki hücrelere kutucukların yanındaki bilgileri sayfa 2 deki yerlerine kopyalamak.

detaylı bilgi ekteki excel dosyasında mevcuttur.

yardımlarınız için şimdiden teşekkürler.

 

[Recep İpek]

Peki siz her defasında listedeki tüm kişileri mi yazdırıyorsunuz? Yada tek işaretlediğiniz kişileyi mi yazdıracaksınız?

 

[muhasebeci315]

hayır recep bey

tek tek tıklayıp ayrı olarak yazdırmak istiyorum mesela birine tıklayacam onu yazdıracam sonra 2 yi tıklayacam 2 yi yazdıracam

 

[Orion1]

Dosyanız ekte.
İstediğiniz satıra çift tıklayınız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:D" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
For i = 2 To 4
    Sheets(2).Cells(i - 1, "B").Value = Cells(Target.Row, i).Value
Next i
Cancel = True

End Sub

 

[Recep İpek]

Verileriniz fazla değilse ekteki gibi sayfaya Option Buton ekleyip gerekli kodları bu butonlara ilave edebilirsiniz.

 

[muhasebeci315]

teşekkürler arkadaşlar yardımlarınız için beni büyük bir dertten kurtardınız.

evren bey bişey sormak istiyorum

ben sayfa 2 ye gelen veriyi B1 değilde F5 e yazdırmak istiyorum bunu nasıl değiştirebilirim?

 

[Orion1]

teşekkürler arkadaşlar yardımlarınız için beni büyük bir dertten kurtardınız.

evren bey bişey sormak istiyorum

ben sayfa 2 ye gelen veriyi B1 değilde F5 e yazdırmak istiyorum bunu nasıl değiştirebilirim?

Aşağıdaki kodları deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:D" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
For i = 2 To 4
    Sheets(2).Cells(i - 1, "D").Value = Cells(Target.Row, i).Value
Next i
Cancel = True

End Sub

 

[muhasebeci315]

evren bey

verdiğiniz 2. kodu çalıştırdım sadece yan sütuna gidiyor benim istediğim hem yan sütuna hemde alt satıra gitmesi.

mesela sayfa 1 deki liste 1 e çift tıkladığım zaman sayfa 2 de E6 hücresine yazdırmak

ben gene yapamadım çok küçük bir değişiklik yapılması gerekiyor ama yapamadım işte

gerekli açıklama ekteki excel dosyasında yazdım.

rica etsem bakabilir misiniz?

 

[Orion1]

Sorunuz tam olarak açık değil.
Mesela Sayfa1'de B sütunu diğer sayfalarda hangi hücreye yazdırılacak.
Ve tabiiki C ve D sütunlarıda öyle.

 

[muhasebeci315]

son gönderdiğim ekteki dosyaya baktığınızı varsayarak konuşayım.

taraflar sayfasındaki B sütunu tebligat sayfasındaki F17 hücresine yazdırılacak.
taraflar sayfasındaki C sütunu tebligat sayfasındaki F18 hücresine yazdırılacak.
taraflar sayfasındaki D sütunu tebligat sayfasındaki F19 hücresine yazdırılacak.

ama taraflar sayfasında listedeki verilere çift tıklayarak tebligat sayfasına aktartmak istiyorum.

bu şekilde yapmak mümkün mü acaba.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:D" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
Sheets("Tebligat").Range("F17").Value = Cells(Target.Row, "B").Value
Sheets("Tebligat").Range("F18").Value = Cells(Target.Row, "C").Value
Sheets("Tebligat").Range("F19").Value = Cells(Target.Row, "D").Value
Cancel = True
End Sub

 

[muhasebeci315]

teşekkür ederim evren bey yardımlarınız sayesinde 3 saatlik işim 15 dk ya indi.

 

[Orion1]

teşekkür ederim evren bey yardımlarınız sayesinde 3 saatlik işim 15 dk ya indi.

Rica ederim.
İyi çalışmalar.