Çözüldü Makroyu nasıl geliştirebilirim ?

[emre_44]

Selamlar elimde bir excelim var burada ben bir makro geliştirdim. Makronun özeti sayfa 2 deki verileri sayfa 1 de boş bulduğu yere direk kopyalayıp yapıştırmak. Fakat şöyle bir koşul eklemem gerekli. B sütununda en son hangi şiir tipi girildiyse onun verilerini getirmesi gerekli. Bunu nasıl yapabilirim?

Sub Makro5()
Sheets("Sayfa2").Range("A2:A102").Copy
Sheets("Sayfa1").Select
son = [d1048576].End(3).Row
If son = 1 And [a1] = "" Then son = 0
Range("d" & son + 1).Select
ActiveSheet.Paste
End Sub

 

[excelcan]

Dener misiniz

 

[emre_44]

Dener misiniz

Listele butonu aktif değil hocam

 

[excelcan]

dosya üzerine sağ tıkla engellemeyi kaldır aktif olur.

 

[emre_44]

dosya üzerine sağ tıkla engellemeyi kaldır aktif olur.

Yok hocam neresinde var engellemeyi kaldır?

 

[excelcan]

Yok hocam neresinde var engellemeyi kaldır?

Dosyanın üzerinde sağ tıklayın özelliklere tıklatın çıkan ekranda engellemeyi kaldıra tıklayın.
Hepsi bu.
Kolay gelsin.

 

[emre_44]

Dosyanın üzerinde sağ tıklayın özelliklere tıklatın çıkan ekranda engellemeyi kaldıra tıklayın.
Hepsi bu.
Kolay gelsin.

Teşekkürler oldu ama. Şöyle problem var bu liste aşağı doğru uzayacak aslında. Şöyle söyliyim; B sütununda Lirik seçtim listeledim b8'e kadar listeleme yaptı. B9'da pastoral seçtiğimde maddeleri altına sıralamıyor. Yine en üste sıralama yapıyor.

 

[excelcan]

Teşekkürler oldu ama. Şöyle problem var bu liste aşağı doğru uzayacak aslında. Şöyle söyliyim; B sütununda Lirik seçtim listeledim b8'e kadar listeleme yaptı. B9'da pastoral seçtiğimde maddeleri altına sıralamıyor. Yine en üste sıralama yapıyor.

Ben bilerek silme kodu vermiştim.
Siz seçim yaptıkca altalta eklemesini mi istiyorsunuz ?

 

[emre_44]

Ben bilerek silme kodu vermiştim.
Siz seçim yaptıkca altalta eklemesini mi istiyorsunuz ?

Aynen öyle hatta örnek sayısı kadar türleri de otomatik sıralasa güzel olur. Yani b2 'de lirik seçtiysem kaç tane örnek var ise o kadar aşağı lirik yazabilir. Daha sonra B9'A farklı tür girdiğimde de aşağı tekrar sıralamalı olacak şekilde olursa enfes olur

 

[excelcan]

Sayın emre_44
Zaten dediğiniz gibi yapıyor.
Sayfa1 de B sütununda hangi türü seçmişseniz
Sayfa2 de 1. satırda o türü arar ve o sütunda
tüm listeyi alır Sayfa1 de D sütununa listeler.
Silme kodunu kaldırdım.
B sütununda sınır yok. İstediğiniz kadar çoğaltabilirsiniz.
Sayfa 2 de 1 satır için yani türler için de ekleme yapabilirsiniz.
Örneğin G sütununa atıyorum Destanlar diye bir tür ekleyin.
Sayfa1 B sütununda yazım doğruysa bulur ve çalışır.
Kolay gelsin.

 

[Refaz]

Eğer gifteki gibi istiyorsanız alttaki kodu denersiniz gerçi tamda anlamadım.Ama 7.Mesajdan böyle anladım.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Yada böyle.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[emre_44]

Yada böyle.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 24159

BU çok güzel olmuş ben d sütunu yerine mesela k sütunu kullandım. Silme yapmıyor onun için hangi değer değiştirmeliyim denedim ama yapamadım. Maddeler geliyor ama silme yapmıyor sadece.

 

[excelcan]

Zaten silme istememiştiniz.
Sıralanmış hali ekte.
Kolay gelsin.

 

[emre_44]

Zaten silme istememiştiniz.
Sıralanmış hali ekte.
Kolay gelsin.

Diğer arkadaşa yazdım aslında sizin makronuz da çok iyi fakat silme işlemi hiç yok sanırım.

 

[excelcan]

Ben yazmıştım ama siz kaldırttınız.
Silme kodunu nereye istiyorsunuz.
Nasıl istiyorsunuz.

 

[emre_44]

Yani Lirik sildiğimde maddeleri de silmeli. Ayrıca buton olmasına gerek yok hocam. Direk gelsin yeterli

 

[emre_44]

Yani Lirik sildiğimde maddeleri de silmeli. Ayrıca buton olmasına gerek yok hocam. Direk gelsin yeterli

Aslında mesaj 12'de gözüktüğü üzere hazır yapmış arkadaş ama ben k sütununa taşıdım maddeleri. Bu seferde silme işlemi yapmıyor K'ya taşıdığımdan dolayı.

 

[Refaz]

Ben yarın bakabilirim.Ayrıca sıralatmakta kolay.

 

[Refaz]

Cells(Target.Row, "D").Resize(adet, 1).Value =

Mobilden ayarlamaya çalışıyorum ilk olarak burdaki D yerine K yazın.