[Çözüldü] Sayfa 2 den Sayfa 1'e seçime göre veri ekleme

[voleclub]

Sayfa 1 de bir tablom birde ayları yazan acılır menüm var.Sayfa 2 dede aylara ilişkin bilgilerim var. Acılır menüden bir ay ismi seçtiğimde o aya ait bilgileri sayfa 2 den bulup sayfa 1 e yazıdrma imkanımız varmıdır.

[Rami]

Ek dosyayı inceleyin.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

teşekkür ederim sağolun

[voleclub]

Merhaba,
Tablomun hücreleri yanyana değilde 3'er sütün arayla olsaydı nasıl atanırdı.Alta ,sağa götürdüm ama aralıklarla yazdıramadım.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Rami]

Merhaba.
Sn Mahmut bey şöyle olabilir:

Kod: [Seç]

Private Sub ComboBox1_Change()
[a3:y4] = Empty
If ComboBox1.Value = "" Then Exit Sub
x = Sheets("Sayfa2").Cells(65000, 1).End(xlUp).Row
For Each a In Sheets("Sayfa2").Range("a1:a" & x)
If ComboBox1.Value = a.Value Then
For c = 1 To 8
r = c * 2
 r = r - 1
Cells(3, c + r) = Sheets("Sayfa2").Cells(a.Row + 1, c)
Cells(4, c + r) = Sheets("Sayfa2").Cells(a.Row + 2, c)
Next
End If
Next
End Sub

Kod: [Seç]

  r = r - 1 bölümünü silerseniz ortalı olur.