İçinde boşlukları olan tabloyu 2 sütunda boşluksuz ve dikey sıralamak

[Bwtunc]

Merhaba Değerli Arkadaşlar,

Cümle biraz karmaşık olduğu için yapmak istediğim şeyi ekran görüntüsü ile atmak istiyorum. Dediğim şeyi formülle yapmak mümkün mü?

Sorum şu: Tablo 1'i Tablo 2 şekline dönüştürebilir miyim? Arada boşluk olmadan, ilk sırada yer alan Ahmet'in saatlerini yazarken son satırda ki Ahmet'in saatlerini de yazmalı?

 

[Merhum İdris SERDAR]

.

Resim değil de dosya eklerseniz, yanıt verecek kişileri zahmete sokmamış olursunuz.

.

 

[Bwtunc]

Üzgünüm ekledim sanıyorum.

 

[Orion1]

Buyurun.

Sub Ahmet()
Dim sonsat As Long, sat As Long, i As Long, x As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("K2:L" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat
        If Cells(i, x).Value <> "" Then
            Cells(sat, "K").Value = Cells(i, "B").Value
            Cells(sat, "L").Value = Cells(i, x).Value
            sat = sat + 1
        End If
    Next
Next
MsgBox "bitti"
    

End Sub

 

[Orion1]

Dosya ektedir.

 

[Bwtunc]

Dosya ektedir.

Emeğiniz için teşekkür ederim. Fakat makro bilgim çok az olduğu için dosyayı kullanamamış olma ihtimalim yüksek. Sizin gönderdiğiniz makroyu bir şekil çizerek makro ataması yaptım ama Sub Ahmet bölümünde sarı hata görüntüsü çıktı. Eksik yada yanlış yaptığım birşey mi var acaba. Teşekkürler.

 

[Orion1]

Emeğiniz için teşekkür ederim. Fakat makro bilgim çok az olduğu için dosyayı kullanamamış olma ihtimalim yüksek. Sizin gönderdiğiniz makroyu bir şekil çizerek makro ataması yaptım ama Sub Ahmet bölümünde sarı hata görüntüsü çıktı. Eksik yada yanlış yaptığım birşey mi var acaba. Teşekkürler.

Sub ile başlayıp end sub satırına kadar kopyalayıp dosyanıza yapıştırın.Sonra çalıştırın.

 

[Orion1]

Aşağıdaki prosedürü kullanın ,öncekini silin.

Sub Ahmet()
Dim sonsat As Long, sat As Long, i As Long, x As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("K2:L" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat
    For x = 3 To 8
        If Cells(i, x).Value <> "" Then
            Cells(sat, "K").Value = Cells(i, "B").Value
            Cells(sat, "L").Value = Cells(i, x).Value
            sat = sat + 1
        End If
    Next
Next
MsgBox "bitti"
End Sub

 

[Bwtunc]

Aşağıdaki prosedürü kullanın ,öncekini silin.

Sub Ahmet()
Dim sonsat As Long, sat As Long, i As Long, x As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("K2:L" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat
    For x = 3 To 8
        If Cells(i, x).Value <> "" Then
            Cells(sat, "K").Value = Cells(i, "B").Value
            Cells(sat, "L").Value = Cells(i, x).Value
            sat = sat + 1
        End If
    Next
Next
MsgBox "bitti"
End Sub

Teşekkür ederim üstadım problem sayende çözüldü.... İyi ki bu site ve bilgisini paylaşan, destek veren insanlar var.

 

[Bwtunc]

Söz konusu kodun içine sıralama seçeneklerini nasıl yerleştirebiliriz.

Teşekkürler.

 

[Orion1]

Oluşturulan 2 sütunu küçükten büyüğe göre sıralıyor.

Sub Ahmet()
Dim sonsat As Long, sat As Long, i As Long, x As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("K2:L" & Rows.Count).ClearContents
sat = 2
For i = 2 To sonsat
    For x = 3 To 8
        If Cells(i, x).Value <> "" Then
            Cells(sat, "K").Value = Cells(i, "B").Value
            Cells(sat, "L").Value = Cells(i, x).Value
            sat = sat + 1
        End If
    Next
Next
Range("K2:L" & Rows.Count).Sort key1:=Range("K2"), order1:=xlAscending, _
        key2:=Range("L2"), order2:=xlAscending
MsgBox "bitti"
End Sub

 

[Bwtunc]

Tekrardan Merhaba,

Bu makroda A sütununu da kopyalayı R sütununa yapıştırmak için kodda aşağıda yer alan şekilde düzenleme yaptım ama hata verdi. hatam tam olarak nerede acaba? Yorumlarınızı rica ediyorum. Ekleme veya değişiklik yaptığım kodlar kırmızı ile belirtilmiştir.
sonsat = Cells(Rows.Count, "A2:B").End(xlUp).Row
Cells(sat, "R").Value = Cells(i, "A").Value

Sub Ahmet()
Dim sonsat As Long, sat As Long, i As Long, x As Long
sonsat = Cells(Rows.Count, "A2:B").End(xlUp).Row
Range("R3:t" & Rows.Count).ClearContents
sat = 3
For i = 3 To sonsat
    For x = 10 To 16
        If Cells(i, x).Value <> "" Then
            Cells(sat, "R").Value = Cells(i, "A").Value
            Cells(sat, "S").Value = Cells(i, "B").Value
            Cells(sat, "T").Value = Cells(i, x).Value
            sat = sat + 1
        End If
    Next
Next
Range("S3:T" & Rows.Count).Sort _
        key1:=Range("T3"), order2:=xlAscending
MsgBox "Seansa Göre Sıralama İşlemi Tamamlanmıştır"
End Sub

 

[Orion1]

A veya B olmalı.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row

 

[Bwtunc]

A veya B olmalı.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row

Aynısından bi tane daha yazsam ????

sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row

Şeklinde 2 defa tanimlama yapsam çok iyi bilmediğim için mantık yurutmeye çalışıyorum ????

 

[Orion1]

Aynısından bi tane daha yazsam ????

sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row

Şeklinde 2 defa tanimlama yapsam çok iyi bilmediğim için mantık yurutmeye çalışıyorum ????

sonsat A sütununda son satırı bulur.
sonsat1 B sütununda son satırı bulur.

 

[Bwtunc]

For i = 3 To sonsat1

For x = 2
If Cells(i, x).Value <> "" Then
Cells(sat, "R").Value = Cells(i, "A").Value

sat = sat + 1
End If


Yapsam yani ikinci bir döngü kursam o da mı olmaz ????

 

[Korhan Ayhan]

Eklediğiniz örnekte "A" sütunu boş.

Siz tam olarak ne yapmaya çalışıyorsunuz?

 

[Bwtunc]

Siz tam olarak ne yapmaya çalışıyorsunuz?

Yazı dilinin vurgusu olmadığından bu soru şeklinin bir sorgu sekliymis gibi algilanma ihtimali var. Fakat bu yönüyle degerlendirmek yerine "Yardımcı olmak için sorulan" bir soru olarak değerlendirmek istiyorum.

Her iki koşulda da cevabım şu; öğrenmek istiyorum! Hazıra ve ezbere dayalı bir mantıkla sülük gibi bu sitenin kanını emmek yerine ihtiyaçlarımı maksimum oranda karşılamak istiyorum. Amacım ise boş olmayan bir sütunda (a olur z olur) veri bütünlüğünü, ilişkisini bozmadan bir sütunu bu kodun içine nasıl yedirebilirim.

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Üyelerimize asla kırıcı ya da sorgulayıcı yorumlarda bulunmam. Buradaki yönetici arkadaşlarımın ve destek olan tüm üyelerimizin amacı yardım arayanlara yardımcı olmak ve paylaşımda bulunmak.

Sorulan soruların yanıtlanma ve doğru cevaba ulaşma sürecinin daha hızlı olması açısından soruyu soran üyelerimize anlayabilmek adına sorular soruyoruz. Konu ne kadar basit gibi görünse de aslında durum öyle olmayabiliyor.

Bu sebeple konuyu baştan incelediğimde eklediğiniz görselde ve dosyada "A" sütunu boş olunca sorumu yöneltme ihtiyacı hissettim. Demek ki doğru cümleyi kuramamışım. Kusura bakmayın. Yanlış anlamaya sebebiyet verdim.

Öğrenmek istediğinizi belirtmişsiniz. Kendi ihtiyaçlarınızı görecek makroları yazabilmeniz için excelin temel fonksiyon yapılarına hakim olmanız size fayda sağlayacaktır. MAKRO KAYDET yöntemi ile birçok komutu öğrenme şansınız var. Bu yöntem ile elde ettiğiniz kodları netten araştırarak ne anlam ifade ettiklerini öğrenebilirsiniz. Ayrıca tüm üyelerimize tavsiye ettiğimiz gibi size de tavsiye edebileceğimiz yöntem bol bol pratik yapmak olacaktır. Böylece kod yazım alışkanlığını kazanabilirsiniz.

İyi forumlar...

 

[Bwtunc]

Merhaba,

Üyelerimize asla kırıcı ya da sorgulayıcı yorumlarda bulunmam. Buradaki yönetici arkadaşlarımın ve destek olan tüm üyelerimizin amacı yardım arayanlara yardımcı olmak ve paylaşımda bulunmak.

Sorulan soruların yanıtlanma ve doğru cevaba ulaşma sürecinin daha hızlı olması açısından soruyu soran üyelerimize anlayabilmek adına sorular soruyoruz. Konu ne kadar basit gibi görünse de aslında durum öyle olmayabiliyor.

Bu sebeple konuyu baştan incelediğimde eklediğiniz görselde ve dosyada "A" sütunu boş olunca sorumu yöneltme ihtiyacı hissettim. Demek ki doğru cümleyi kuramamışım. Kusura bakmayın. Yanlış anlamaya sebebiyet verdim.

Öğrenmek istediğinizi belirtmişsiniz. Kendi ihtiyaçlarınızı görecek makroları yazabilmeniz için excelin temel fonksiyon yapılarına hakim olmanız size fayda sağlayacaktır. MAKRO KAYDET yöntemi ile birçok komutu öğrenme şansınız var. Bu yöntem ile elde ettiğiniz kodları netten araştırarak ne anlam ifade ettiklerini öğrenebilirsiniz. Ayrıca tüm üyelerimize tavsiye ettiğimiz gibi size de tavsiye edebileceğimiz yöntem bol bol pratik yapmak olacaktır. Böylece kod yazım alışkanlığını kazanabilirsiniz.

İyi forumlar...

Dediğim gibi yazı dilinin vurgusu yoktur, okuyucunun okuma şekline göre farklı anlamlar çıkabilir. Yine dediğim gibi ben ikinci seçeneği tercih ettim. Çünkü 2008'den beri uyeyim. 2008'den beri belki binlerce siteye üye olmusumdur fakat sadece Excel.web.tr'yi bırakmadım çünkü her zaman tüm sorularıma yanıt aldım ve excel'de normal işlerimi yapacak seviyede olmamda bu sitenin payı büyük.

Dediğiniz yöntemi denedim fakat (makro kaydet) fakat bağımlı hücreleri getiremedim. O nedenle isminin Ahmet bey olduğunu tahmin ettiğim Orion arkadaşımıza sempatik soru sorarak çözmeye çalıştım. Sağolsun bir once ki konuda bana desteğini esirgemedi.

Yorumu çok uzattım. Yönlendirici yorumunuz ve cozumcul mesajinizdan ötürü teşekkür ederim.

İyi çalışmalar.

Sevgi ve saygılarımla.