Tablodaki hücreye farklı sayfadan farklı sutunlardan veri almak?

[mars2]

İyi Günler;

Tablomun B19 hücresine aşağıdaki kodla Sayfa2 (s2) nin L sutunundan veri alıyorum. Ancak, B19 hücresine Sayfa2'deki AB sutunundan da veri almak istemekteyim.

s1.Cells(19, "B").Value = s2.Cells(sat, "L").Value & s2.Cells(sat, "AB").Value

Örneğin
B19 hücresi
67,00
Mesken olarak çıkması için

s1.Cells(19, "B").Value = s2.Cells(sat, "L").Value & s2.Cells(sat, "AB").Value olmadı.

 

[Muzaffer Ali]

L de 67,00 yazıyor
AB de Mesken yazıyor
Siz bunların B de aynı hücrede alt alta mı yazılmasını istiyorsunuz?

Üye kayıt tarihine ve mesaj sayınıza bakınca, örnek dosya eklemenizin cevap almanızı kolaylaştıracağını hatırlatmamıza gerek yok diye düşünüyorum.

 

[YUSUF44]

Örnek dosya paylaşırsanız iyi olur.

 

[mars2]

Örnek ektedir.

 

[Muzaffer Ali]

Olmadı tekrar deneyin.

 

[mars2]

Örnek ektedir.

 

[Muzaffer Ali]

Sizden örnek dosya istememizin sebebi, sonuç olarak istediğiniz şeyi örneklendirmeniz içindir.
Nasıl bir sonuç istiyorsanız örnek dosyanızda elinizle yazarak/yaparak paylaşın, biz de örneğe bakarak kodlarınızda düzenleme yapalım.
Ayrıca örnek dosyanızdaki bütün kodları da silmişsiniz, dosyanızda var olan kodları da bilmemiz lazım ki ona göre çözüm üretelim.

 

[mars2]

İyi Günler;
örneğe kodları uyguladım.

Excel uygulamamın yıllar sayfasının B19 hücresine liste sayfasından L sutunundan ve AB sutunundaki uygun verileri alt alta almak istiyorum

Örnek: B12 hücresine Ali yazdığımda, B19 hücresine 67,00 ve mesken verilerini alt alta gelmesi

Aynı hücrede (B12 ) alt alta yazılmasını istiyorum.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Intersect(Target, [B12]) Is Nothing Then Exit Sub

If Target.Value = Empty Then Exit Sub

Set s1 = Sheets("yıllar")
Set s2 = Sheets("liste")


For Each bul In s2.Range("P25000")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ KİŞİ BULUNAMADI ????", vbInformation, "Bilgi"
Exit Sub
End If

s1.Cells(4, "B").Value = s2.Cells(sat, "B").Value
s1.Cells(7, "B").Value = s2.Cells(sat, "C").Value
s1.Cells(8, "B").Value = s2.Cells(sat, "D").Value

s1.Cells(5, "D").Value = s2.Cells(sat, "G").Value
s1.Cells(6, "D").Value = s2.Cells(sat, "H").Value
s1.Cells(9, "D").Value = s2.Cells(sat, "E").Value
s1.Cells(10, "D").Value = s2.Cells(sat, "F").Value

s1.Cells(13, "B").Value = s2.Cells(sat, "U").Value

s1.Cells(14, "B").Value = s2.Cells(sat, "O").Value
s1.Cells(15, "B").Value = s2.Cells(sat, "Q").Value
s1.Cells(16, "B").Value = s2.Cells(sat, "I").Value
s1.Cells(17, "B").Value = s2.Cells(sat, "J").Value
s1.Cells(18, "B").Value = s2.Cells(sat, "K").Value
s1.Cells(19, "B").Value = s2.Cells(sat, "L").Value
s1.Cells(20, "B").Value = s2.Cells(sat, "N").Value

s1.Cells(22, "B").Value = s2.Cells(sat, "V").Value
s1.Cells(23, "B").Value = s2.Cells(sat, "W").Value

s4.Cells(70, "H").Value = s2.Cells(sat, "AC").Value

Set s1 = Nothing
Set s2 = Nothing
Set s3 = Nothing
Set s4 = Nothing
Set s5 = Nothing


End Sub

 

[YUSUF44]

Şu satırı dener misiniz?

s1.Cells(14, "B").Value = s2.Cells(sat, "O").Value & Chr(10) & s2.Cells(sat, "AB").Value

Not: İlgili B1414 hücrelerinde Metni kaydır özelliği işaretlenmiş olmalıdır

 

[mars2]

Sayın Yusuf44
Cevabınız ve ilginiz için teşekkürler.

B14 hücresine Sayfa2'den sayı alınırken örneğin 1500 çıkmakta bunu 1.500,00 çıkmasını sağlayabilir miyiz.

 

[YUSUF44]

Deneyiniz:

s1.Cells(14, "B").Value = Format(s2.Cells(sat, "O").Value, "#,##0.00") & Chr(10) & s2.Cells(sat, "AB").Value

 

[mars2]

Sayın YUSUF44;

Cevabınız ve ilgi alakanız için teşekkürler.