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

Bwtunc

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#1
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ı?

Tablo.JPG
 

Ekli dosyalar

Son düzenleme:

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
15,597
Beğeniler
236
Excel Vers. ve Dili
Excel, 2016 - İngilizce
#2
.

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

.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
Buyurun.:cool:
Kod:
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
 

Bwtunc

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#6
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#7
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.:cool:
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#8
Aşağıdaki prosedürü kullanın ,öncekini silin.:cool:
Kod:
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

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#9
Aşağıdaki prosedürü kullanın ,öncekini silin.:cool:
Kod:
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

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#10
Söz konusu kodun içine sıralama seçeneklerini nasıl yerleştirebiliriz.

Teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#11
Oluşturulan 2 sütunu küçükten büyüğe göre sıralıyor.:cool:

Kod:
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

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#12
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

Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#13
A veya B olmalı.:cool:
Rich (BB code):
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
 

Bwtunc

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#14
A veya B olmalı.:cool:
Rich (BB code):
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,569
Beğeniler
393
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#15
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.:cool:
 

Bwtunc

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#16
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,637
Beğeniler
427
Excel Vers. ve Dili
OFFICE 2019 PRO TR
#17
Eklediğiniz örnekte "A" sütunu boş.

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

Bwtunc

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#18
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,637
Beğeniler
427
Excel Vers. ve Dili
OFFICE 2019 PRO TR
#19
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

Altın Üye
Altın Üye
Katılım
28 Kasım 2008
Mesajlar
121
Beğeniler
0
Excel Vers. ve Dili
değişken
#20
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.
 
Üst