• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Listeye hücre ekleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

cevre

Yeni Üye
Katılım
11 Nis 2023
Mesajlar
16
Aldığı beğeni
2
Excel V
Office 2016 TR
Konu Sahibi
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
 
Çözüm
Sayın üstad hazretleri beyniniz o kadar güzel düşündüğüne göre heralde sizde yapabilirsiniz.
Altta dizi ile yapılmış hali var vede uzadı belki kısalır az biraz.

daha öncede yazdım silmediysem metin ve sayı aynı (a1) gibi olunca sıralatmak olmuyor yani
a1
a10
a2
diye gidiyor normal sıralatma kodu bile hatta satırlara dediğim gibi ekleyin ve sütunda sıralatın nasıl sonuç olacak?

Valla karmaşık kod istemiyorsanız kendiniz yapacaksınız artık ne diyelim.Arkadaşınızın dediği proğram belki yapıyordur o proğram ilede excel komutları oluyor diye gördüm videolarda.

Dediğim gibi dalga geçmiyorsanız verdiğim kod işinizi görüyor.Kendi adımada zaten fazla zamanım yok yinede uğraştım çarşambadan itibarende zaten 3 hafta olmayacağım pc başında...
.
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
 
Konu Sahibi
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ı?
 
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:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
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:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Alternatif
 
Konu Sahibi
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:
C#:
İç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 :-)
 
Konu Sahibi
.
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 :-)
 
Konu Sahibi
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:
C#:
İç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ı?
 
.
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.
 
.
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.
 
cevre eğer officeniz 2021 yada 365 versiyonsa kodda sıralama özellik var sayfadaki gibi.Öyle ise onu yapıp onuda yollayayım.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst