listeden tabloya veri yerleştirme

[voleclub]

Bülent Bey Selamlar,
Anlatırken yanlış anlattığımı düşünerek yeniden yükledim.O yüklediğimde açılmayınca ücüncüsünü yükledim o yüzden tekrar sordum kusura bakmayın.

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

[voleclub]

Bir sayfada tüm ögrencilerin bir aylık karışık verileri var.Diğer sayfaya açılır menüden belirlediğim bir öğrencinin verilerini nasıl alabilirim.

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

[voleclub]

Bir arkadaş ekteki gibi yaptı ama ben bir şey anlamadım. Bunun daha kolay bir yolu yokmudur.

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

[Rami]

Bir sayfada tüm ögrencilerin bir aylık karışık verileri var.Diğer sayfaya açılır menüden belirlediğim bir öğrencinin verilerini nasıl alabilirim.

Ek dosyayı inceleyin.
Dosyanızdaki"poğram" olan sayfa adını "proğram" olarak değiştirdim.

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

[voleclub]

Rami bey
İlginiz için teşekkürler ama açılır menüden isim belirliyorum hiç bir değişiklik olmuyor.

[Rami]

Rami bey
İlginiz için teşekkürler ama açılır menüden isim belirliyorum hiç bir değişiklik olmuyor.

Kusuruma bakmayınız: ben yanlış anlamışım.!

[Hüseyin Çoban]

Bir arkadaş ekteki gibi yaptı ama ben bir şey anlamadım. Bunun daha kolay bir yolu yokmudur.

Merhaba Mahmut Bey, elimden geldiğince bir çalışma yaptım inceler misiniz.

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

[voleclub]

Arkadaşlar ilginiz için teşekkürler,
Hücreler 177,231,559,560....vb. yerine 3,4,5,6,..gibi  belirli hücrelere yerleşebilir mi? Yada Üsteki  tablo olmadan ismi seçince direk attaki tabloya geçebilirmi.


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

[Rami]

Aşağıdaki dosyayı deneyelim.


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

[voleclub]

Rami Bey teşşekürler,
İsimler sayfasındaki ComboBox 'u programlar sayfasına alsak  ve adrese gitme için tıkayayın yazılarını silsek olurmu.

[Rami]

Rami Bey teşşekürler,
İsimler sayfasındaki ComboBox 'u programlar sayfasına alsak  ve adrese gitme için tıkayayın yazılarını silsek olurmu.

Yukarıdaki dosyayı değiştirdim. İnceleyiniz.

[voleclub]

Çok teşekkür ederim.

[Rami]

Çok teşekkür ederim.

Rica ederim.

Sıralama kodunda sorun farkettiğim için tekrar değiştirdim; Yeni dosyayı indirin.

[voleclub]

Teşekkür ederim.
Uraştım ama olmadı.Proğramlar sayfasından satır 2 den başlıyor ben onu nasıl 20 satırdan başlatabilirim.

[Rami]

Teşekkür ederim.
Uraştım ama olmadı.Proğramlar sayfasından satır 2 den başlıyor ben onu nasıl 20 satırdan başlatabilirim.

Kodları aşağıdaki gibi değiştirerek; deneyebilirsiniz.

Kod: [Seç]

Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then Exit Sub
Application.ScreenUpdating = False
Sheets("proğram").[a1:g65000] = Empty
Sheets("proğram").Cells(1, 1) = ComboBox1.Value
Set x = Sheets("dersler").Range("f" & i + 1 & ":f65536").Find(ComboBox1.Value)
If Not x Is Nothing Then
    Application.EnableEvents = False
    Ad = x.Address
    Do
    bb = Sheets("dersler").Cells(x.Row, 1).Value
b = Sheets("proğram").Cells(65000, 1).End(xlUp).Row + 19
Sheets("proğram").Range("a" & b & ":" & "g" & b).Value = Sheets("dersler").Range("a" & x.Row & ":" & "g" & x.Row).Value
Set x = Sheets("dersler").Range("f2:f65536").FindNext(x)
    Loop While Not x Is Nothing And x.Address <> Ad
    Application.EnableEvents = True
End If
son = Cells(65000, 1).End(xlUp).Row
    Rows("20:" & son).Select
    Selection.Sort Key1:=Range("A20")
Sheets("proğram").[a1].Select
Application.ScreenUpdating = True
End Sub