dolu hücreleri süzüp syfa 2 de boşluksuz liste oluşturma

[mehmethoca]

sayfa1 de sarı olan aralığı süzüp syfa 2 de boşluksuz liste oluşturma işleminde başarılı olamadım dolu ise diğer sayfaya aktarıyorum ama liste alt alta boşluksuz olmuyor

 

[mehmethoca]

arkadaşlar bu arada ben makro bilmiyorum

bana yardımcı olacak arkadaşlar sorunumu excel förmülleri ile çözerlerse memnun olurum çünkü ben hazır karoları bile kullanamıyorum:roll:

 

[Orion1]

Dosyayı güncelledim.

Merhaba.
Ekli dosyaya bir buton koydum.Dosyayı indirip çalıştırınız.
Butona basarak aktarma işlemini yapabilirsiniz.
Kodlarıda aşağıya yazıyorum.
Ekli dosyayı istediğiniz şekilde güncelledim.İndirip deneyiniz.
Ayarıca Kodlar aşağıda olduğu gibidir.

Sub aktar()
Dim sat As Byte, hucre As Range
sat = 2
Sheets("Sayfa2").Range("A2:E24").ClearContents
For Each hucre In [G3:J23]
    If hucre.Row <> 13 And hucre.Value <> "" Then
        Sheets("Sayfa2").Range("A" & sat).Value = hucre.Value
        sat = sat + 1
    End If
Next
MsgBox "Akatarma tamamlandı", vbOKOnly, Application.UserName
End Sub

 

[mehmethoca]

Syn Sezar

ÜSTAT EMEĞİNE SAĞLIK ben sorunumu iyi ifade edemedim galiba ben bu değişkenleri veri doğrulama için başka sayfada liste oluşturmak için kullanacagım
bana bunlar
109a
109b
109c
gibi lazım ve ben sizin gönderdiğiniz dosyayı inceledim benim için şu an çok ileri bir teknoloji
bunu makrosuz daha basit bir yolla halletmenin bir yolu var mı?:???:

 

[Orion1]

Merhaba.
Dosyayı istediğiniz şekilde güncelledim .Tekrar indirip deneyiniz.

 

[mehmethoca]

size tek kelime ile saygı duyuyorum

 

[Orion1]

Rica ederim.
Saygılar benden.
Bu kodları butona basmadan otomatikleştirebiliriz.Siz Hangi sayfada Veri doğrulama yapacaksınız?Bunu bana söyleyin.Veri doğrulama yapacağınız sayfaya geçtiğiniz anda Bu liste otomatik güncellenecek şekilde kodları ayarlayabilirim.

 

[mehmethoca]

syn sezar üstat ben size dosyayı tümüyle gödereyim

hocam açıklama sayfasında taranacak bölgeleri sarı ile işaretledim 3.sınıf kısmını 3.sınıf sayfasında L3 ten itibaren alt alta ve bu işlem 4. 5. 6. 7. 8. 9. lise 1 ve lise 2 kısmında aynı şekilde olacak projeyi buraya kadar toparlayabildim bundan sonrası üstatların işi dilerim bu proje başkalrınında işine yarar ben bir şeyler öğredim biraz vaktini alacak ama ben haftalardır çözemedim !!

 

[Orion1]

Merhaba.
Sayın mehmethoca dosyanız ekte .İndirip deneyiniz.
Hangi sayfayı açarsanız, o sayfaya ait listeleme otomatikman yapılıyor.
İyi çalışmalar.

 

[mehmethoca]

eline sağlık üstat