• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Diğer sayfadan seçime ait verileri getirmek

E

EKREM1661

Katılım
10 Kasım 2006
Mesajlar
1,288
Excel Vers. ve Dili
Excel-2016
Değerli hocalarım..!

Ekli dosyada daraltarak verdiğim bir çalışmam var.. Sayfa2 de yer alan aylık tabloyu işi bitince Yedek sayfasına makrolu buton ile gönderiyorum.

Şimdi benim istediğim; yine bir düğmeden makro yardımı ile gerektiğinde istenilen tabloyu açılır kutu ile tekrar geri getirmek.. (Ayrıca dosya içinde de izahat yaptım)

Konuyu yardımlarınıza arz ederim.
 

Ekli dosyalar

Merhaba.

Dönem adlarını ComboBox2 içine almak için aşağıdaki kod'u kullanabilirsiniz.
Bu kod'u yeni bir düğmeye atayabilir veya mevcut düğmelerden birinin sonuna
Call COMBO_DOLDUR_BRN
şeklinde bir satır ekleyerek kullanabilirsiniz.
Kod'u herhangi bir Modül'e yapıştırın.
.
Kod: 
[FONT="Arial Narrow"]Sub COMBO_DOLDUR_BRN()
Sheets("Sayfa2").[O1] = 1
Sheets("Sayfa2").ComboBox2.Clear
For dönem = 1 To Sheets("Yedek").[A65536].End(3).Row Step 32
    Sheets("Sayfa2").ComboBox2.AddItem Format(Sheets("Yedek").Cells(dönem, 1), "mmmm yyyy")
Next
Sheets("Sayfa2").[O1] = ""
End Sub[/FONT]

Yukarıdaki işlemi yaptıktan sonra, aşağıdaki kod,
ComboBox2'de yaptığınız seçime göre seçtiğiniz ay'a ait bilgileri Yedek sayfasından getirecektir.
Kod'u Sayfa2'nin kod bölümüne yapıştırın.
.
Kod: 
[FONT="Arial Narrow"]Private Sub ComboBox2_Change()
If Sheets("Sayfa2").[O1] = 1 Then Exit Sub
ilk = (ComboBox2.ListIndex * 32) + 1
son = ilk + 31
Application.ScreenUpdating = False
    Sheets("Yedek").Activate
    Sheets("Yedek").Range("A" & ilk + 1 & ":N" & son).Select
    Selection.Copy
    Sheets("Sayfa2").Activate
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2") = Range("A4")
    Range("A2").Activate
Application.ScreenUpdating = True
End Sub[/FONT]
 
Ömer bey..! Gerçekten çok teşekkürler, harika olmuş.. Ekli dosyada yer alan "Listeleme" kodu da size aitti.. Şimdiye kadarki her yardımınız için ayrı ayrı müteşekkirim..

Bu arada konuya müdahil olmuşken, tasarlamış olduğum şöyle bir ilave de yapabilirmiyiz.. Şu anki, Sayfa2 de "arşive gönder" isimli buton; mevcut tabloyu "Yedek" sayfasında, var olan verilerin devamına, bir satır boş bırakarak kopyalıyor..

İstediğim; Sayfa2 A2 de yer alan (ay.yıl) ismini, "Yedek" sayfasında gönderilen tabolun başına, (yani aktarılan tablonun başlığı olmuş olacak-öncekileri gibi) aldırabilir miyiz..

Yani daha kısa anlatımla, Combobox2 içerisine listelenen başlıklar, daha aktarırken kendiliğinden oluşsun diye düşünüyürum..
 
Merhaba.

Sanırım istediğiniz gibi oldu.
Ekli belgeyi deneyiniz.

Yeni ay bilgisi eklemek için soy taraftan A2 hücresinden ay seçin,
eski ay bilgisini getirmek için ComboBox2'yi kullanın.
.
 

Ekli dosyalar

Ömer bey..Fazladan onarımlar da yapmışsınız. Elinize sağlık.. Herşey için teşekkürler ve hayırlı Ramazanlar..
 
EKREM1661' Alıntı:
Ömer bey..Fazladan onarımlar da yapmışsınız. Elinize sağlık.. Herşey için teşekkürler ve hayırlı Ramazanlar..
Genişletmek için tıkla ...
İyi günler dilerim.

Kanaatim o ki; aslında sol taraftaki veri doğrulama uygulanmış hücre ve sağ taraftaki ComboBox yerine,
sadece birisi de kullanılabilirdi, açılır liste veya ComboBox'ta seçilen ay Yedek sayfasında varsa o bilgi getirilir,
yoksa da yeni ay için alan boşaltılıp tarihler sıralanabilirdi.

Belge tasarımı sizin olduğundan bu konuya dokunmadım.
.
 
Aslında söylediğiniz doğru.. İşin açıkçası, mümkün mertebe karşı tarafı (sizleri) fazla meşgul etmeme ve yardımlarınızın üzerine bir de detaylara kaçarak kafa karışıklılığı oluşturmamaya özen gösteriyorum. Bu itibarla ilk görünürde karışık gözükmemesi için soru ile ilgili olamayan kısımları kırpmıştım. Fakat siz düzenleme yapınca, konunun tamamı önümüze gelmiş oldu..

Tablonun maksadını siz de anlamıştırsınız. Tablodaki isimlerin karşılığına aylık fazla çalışma mesaisi veriliyor. Bunun için combobox1 den renklendirme yardımı ile isimler tek tek seçilip karşılıklarına rakamlar(saat miktarları) yazılıyor, yazarken de renk toplama usulü ile toplamda kaç saat olduğu gözüküyor.. Oldukça kolaylık sağlıyor.. Herhangi bir ihtimale karşı da (yanlışlık olur da yeniden çıkartmak gerekir gibi durumlarda) yedekte kalsın istedim.Yani anlıyacağın, yedekleme konusu çok lazım olacak bir kısmı değil.. Sonuç olarak, ALLAH razı olsun diyorum..
 
Tekrar merhaba.

Fikrimi söylemek istedim. Kod'la renklendirip, sonra da kod'la bunları toplamak yerine;
A1 hücresinde benzersiz isim alanını veri doğrulama kaynağı olarak kullanarak isim seçip
B2 hücresine de aşağıdaki dizi formülünü uygularsanız toplam saati yine bulabilirsiniz.
.
Kod: 
=TOPLA(EĞER(C4:M34=A1;D4:N34))
[COLOR="Blue"]Dizi formülü CTRL+SHIFT+ENTER ile girilmelidir.[/COLOR]
 
Evet doğru.. daha pratik oldu.. Fakat toplatma işini pek yapamadım desem yeridir..
 
A1 hücresine isim yazıp (isimleri veri doğrulama listesinden seçim ile belirleyebilirsiniz),
RENKTOPLA formülünün olduğu hücreye, bir önceki cevabımdaki dizi formülünü uygulayarak sonuç alabilirsiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst