A Sayfasındaki Verileri B Sayfasına Taşıma

[oburs]

iyi çalışmalar arkadaşlar..
benim sormak istediğim konu ;
A sayfasında İş Başvuru Formunda girilen değerler Kaydet tuşu ile B sayfasındaki yerlerine kaydetmesi istenilmektedir.

bu konuda yardımlarınızı rica ederim..
birde yeni alan eklediğimde nasıl yapmam gerekecek..?


Teşekkürler..

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Eksik olan kodları siz tamamlayınız.

Sub Aktar()
    
    Dim i   As Long, _
        wso As Worksheet, _
        wsd As Worksheet
    
    Set wso = Sheets("Önyüz")
    Set wsd = Sheets("Dbase")
    i = wsd.Cells(Rows.Count, "A").End(3).Row + 1
    
    wsd.Cells(i, "A") = wso.Range("C4") ' Adı
    wsd.Cells(i, "B") = wso.Range("C5") ' Soyadı
    wsd.Cells(i, "F") = wso.Range("F4") ' Cep Telefonu
    
    'Diğerlerini bu mantığa göre aktarınız
    
    'Aktarma işlemi bittikten sonra veri alanları siliniyor
    Range("C4:C5,F4:F5,C8:C10,F8:F12,C13:C15,C17:C18").ClearContents
    MsgBox "Aktarılmıştır.....", vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[YUSUF44]

Kendimce amatörce şöyle bir şey yaptım, istediklerinizi yapıyor ama daha profesyonel olabilir tabi. İlk kez böyle bir makro oluşturmaya çalıştım.

 

[Necdet]

Kendimce amatörce şöyle bir şey yaptım, istediklerinizi yapıyor ama daha profesyonel olabilir tabi. İlk kez böyle bir makro oluşturmaya çalıştım.

Sayın YUSUF44,

Dosyayı makro içeren dosya olarak saklamadığınız için dosyada makro yok. Dolayısıyla makro konusunda yorum yapamayacağız.

 

[YUSUF44]

Necdet Bey, dosyayı değiştirdim.

Ancak dediğim gibi çok amatörce. Benimki makroyu dosyaya uydurmak değil dosyayı makroya uydurmak oldu

Makro kaydet yoluyla yaptım, önce tüm bilgileri alt alta gelecek şekilde sıraladım, sonra kopyalayıp, liste sayfasındaki ilk boş satıra özel yapıştırdan işlemi tersine çevir yoluyla yapıştırdım. ilk yaptığımda sütunlar birbirine uymadığı için liste sayfasında sütun başlarını benim yapıştırdığım sıraya dönüştürdüm.

Sonuçta arkadaşın dosyası bambaşka bir hal aldı ama ben şunu öğrendim, az bir gayretle, çok daha iyisini yapabilirmişim

 

[Necdet]

Necdet Bey, dosyayı değiştirdim.

Ancak dediğim gibi çok amatörce. Benimki makroyu dosyaya uydurmak değil dosyayı makroya uydurmak oldu

Makro kaydet yoluyla yaptım, önce tüm bilgileri alt alta gelecek şekilde sıraladım, sonra kopyalayıp, liste sayfasındaki ilk boş satıra özel yapıştırdan işlemi tersine çevir yoluyla yapıştırdım. ilk yaptığımda sütunlar birbirine uymadığı için liste sayfasında sütun başlarını benim yapıştırdığım sıraya dönüştürdüm.

Sonuçta arkadaşın dosyası bambaşka bir hal aldı ama ben şunu öğrendim, az bir gayretle, çok daha iyisini yapabilirmişim

E bizde böyle başladık, hala makro kaydet ile kodları alıp üzerinde değişiklikler yapıyoruz.

 

[oburs]

Çok Teşekkür ederim..

Herkese çok teşekkür ederim..Aklınıza sağlık..

 

[oburs]

üstadım yakalamışken sormak isterim..aynı şekilde verdiğim kriterlere uygun olan cvleri dökme gibi bir raporlama işlemi nasıl yapabilirim..

 

[Necdet]

üstadım yakalamışken sormak isterim..aynı şekilde verdiğim kriterlere uygun olan cvleri dökme gibi bir raporlama işlemi nasıl yapabilirim..

Merhaba,

Forumda belli ölçütlere göre listeleme örnekleri çok. Araştırırsanız bulacağınızdan eminim.

 

[oburs]

Çoklu filtreleme..

çok doğru söylüyorsunuz ama.. isteğimi karşılayacak bir konu bulamadım..
isteğim şu şekilde..
filtre alanları
A1=DOĞUM YERİ +
B1 VE B2 = KİLO ARALIĞI +
C1=BEDEN +
D1=ÜST BEDEN (XL) +
E1=ALT BEDEN(42) gibi çok alanda belirtmiş olduğum kriterlere göre makroyu çalıştırdımızda filtrelemeyi ,süzmeyi yapmasını istiyorum..