Çözüldü Listeye hücre ekleme

[cevre]

Alttaki gibi, E sütununda tam isim listesi, D sütununda ise eksik isim listesi (harf sıralı) var.

a1 a1
a3 a2
b1 a3
b3 b1
c1 b2
c3 b3
c1
c2
c3

Eksik listeye hücre ekleyerek isimleri aynı hizaya getirmek istiyorum. Alttaki gibi işlemler mi olmalı? Şimdiden teşekkürler.
a1 a1
a2
a3 a3
b1 b1
b2
b3 b3
c1 c1
c2
c3 c3

Set s2 = Sheets("Sayfa2")
Dim Son As Long
Son = Range("d" & Rows.Count).End(xlUp).Row 'd sütununun son dolu satırı
Cells(Son, "d").Select
For i = Son To 2 Step -1
If s2.Cells(i, 4) <> s2.Cells(i, 5) Then
ActiveCell.Offset(-1, 0).Activate
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Select
End If
Next i

 

[cevre]

.
Ekli dosya.

 

[azraep]

HTML:

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

 

[cevre]

inşAllah anlamışımdır.
Hata denetimleri eklemedim.


Ekli dosyayı görüntüle 17937

HTML:

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

.
Sağolun, zahmet oldu. (biraz karmaşık, daha basit bir yöntem olamaz mı acaba? )
.

 

[cevre]

HTML:

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

.
Sağolun, zahmet oldu.

 

[cevre]

HTML:

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

.
Eşit değil,
If Cells(i, 4) <> Cells(i, 5) Then ..... komutu ile ne sorun çıkar acaba?

 

[cevre]

.
Eşit değil,
If Cells(i, 4) <> Cells(i, 5) Then ..... komutu ile ne sorun çıkar acaba?

.
ve de böyle daha basit komut yazılımı ile yapılamaz mı acaba?

 

[azraep]

.
Eşit değil,
If Cells(i, 4) <> Cells(i, 5) Then ..... komutu ile ne sorun çıkar acaba?

yaparsanız sizde görürsünüz
yazdığınız kodda hep bir satır aşağı atıyor ama sonuç vermiyor
ben böyle yapabildim
kodu istediğiniz gibi değiştirip kullanabilirsiniz
bundan daha kolay kısa nasıl olur şahsen benim bilgim yeterli değil
kolay gelsin

 

[cevre]

yaparsanız sizde görürsünüz
yazdığınız kodda hep bir satır aşağı atıyor ama sonuç vermiyor
ben böyle yapabildim
kodu istediğiniz gibi değiştirip kullanabilirsiniz
bundan daha kolay kısa nasıl olur şahsen benim bilgim yeterli değil
kolay gelsin

Sağolun. Buna binaen, ben henüz geliştirmedim ama bir arkadaş datalarını Phyton'a aktarıp bu tür işleri çok daha basit komut-işlemle yaparsın dedi.
Bizimle kafa mı buldu acaba, bilginiz var mı?

 

[Refaz]

Bende kendi yazdığım cevapları silmiştim hatalı gördüğüm için.
Kod bayağı uzun oldu ama doğru sonuç veriyor bana göre.
3.Mesajdaki üstadın kodu bende çalışmadığı için uğraştım.
Önceki mesajlarımdaki hatalar metin ve sayısal olduğu için doğru sıralamıyordu.

Zaten excelin kendi sıralamasıda doğru sıralamıyordu.
Benim tek öğrenmek istediğim 3.Mesajdaki çalışıyor mu?
Umarım kod kısalmıyormu yazmazsınız

HTML:

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

 

[Refaz]

Buda Alman videosundan metin ve sayı karışık olan sıralama kodunu uyarladım.

Özetle kodun uzun olma sebebi sıralamada örneğin
a1
a10
a2
gibi sıralandığı için bunu alttaki gibi yapmak uzattı.
a1
a2
a10

HTML:

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

 

[Patron]

Alternatif

 

[cevre]

Buda Alman videosundan metin ve sayı karışık olan sıralama kodunu uyarladım.

Özetle kodun uzun olma sebebi sıralamada örneğin
a1
a10
a2
gibi sıralandığı için bunu alttaki gibi yapmak uzattı.
a1
a2
a10

HTML:

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

.
Sağ olun zahmet etmişsiniz, her ne kadar Bu sizin program yeteneğinizi arttırmaya yardımcı olsa da.

Fakat ben de vakit bulup çalışamadım acaba arkadaşın dediği gibi En azından bazı işler Excel'de daha zor oluyor, bu nedenle başka programlar kullanmak işi hızlandırabilir mi?

Fakat burada da hangi problemler hangi program ile daha kolay yapılabilir sorusu ortaya çıkar. Bu da ayrı bir sorun

 

[cevre]

Alternatif

.
Sağ olun zahmet etmişsiniz, her ne kadar Bu sizin program yeteneğinizi arttırmaya yardımcı olsa da.

Fakat ben de vakit bulup çalışamadım acaba arkadaşın dediği gibi En azından bazı işler Excel'de daha zor oluyor, bu nedenle Phyton gibi başka programlar kullanmak işi hızlandırabilir mi?

Fakat burada da hangi problemler hangi program ile daha kolay yapılabilir sorusu ortaya çıkar. Bu da ayrı bir sorun

 

[cevre]

Bende kendi yazdığım cevapları silmiştim hatalı gördüğüm için.
Kod bayağı uzun oldu ama doğru sonuç veriyor bana göre.
3.Mesajdaki üstadın kodu bende çalışmadığı için uğraştım.
Önceki mesajlarımdaki hatalar metin ve sayısal olduğu için doğru sıralamıyordu.

Zaten excelin kendi sıralamasıda doğru sıralamıyordu.
Benim tek öğrenmek istediğim 3.Mesajdaki çalışıyor mu?
Umarım kod kısalmıyormu yazmazsınız

HTML:

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

.
Yine Size sorayım, ben sizin yanınızda çok amatör kaldığım için.

Acaba dataları bir diziye aktararak daha kolay bir yolla yapılamaz mı?

 

[cevre]

Alternatif

.
Yine Size sorayım, ben sizin yanınızda çok amatör kaldığım için.

Acaba dataları bir diziye aktararak daha kolay bir yolla yapılamaz mı?

 

[Refaz]

.
Yine Size sorayım, ben sizin yanınızda çok amatör kaldığım için.

Acaba dataları bir diziye aktararak daha kolay bir yolla yapılamaz mı?

Normalde yapılıyor lakin bu durum farklı ayrıca satır çok olursa ozamanda excel donar.Anlamadığım iş gördükten sonra ne olacakki.Eğer sıralatma olmayacaksa dizi ile yaparız kolayca.

 

[Patron]

.
Yine Size sorayım, ben sizin yanınızda çok amatör kaldığım için.

Acaba dataları bir diziye aktararak daha kolay bir yolla yapılamaz mı?

Sayın Refaz zaten dizi mantığı ile çözüm üretmiş.
Ben ise dizi kullanmadan yaptım.
Neyi istediğinizi anlayamadım.

 

[Refaz]

Sayın Refaz zaten dizi mantığı ile çözüm üretmiş.
Ben ise dizi kullanmadan yaptım.
Neyi istediğinizi anlayamadım.

Bubblesort yada quicksort diye sıralamalar var heralde ondan istiyor abey.

 

[Refaz]

cevre eğer officeniz 2021 yada 365 versiyonsa kodda sıralama özellik var sayfadaki gibi.Öyle ise onu yapıp onuda yollayayım.