2 farklı sütundaki sayıları aynı sıraya alma

[orkunozbudak]

herkese merhaba 2 sütundaki sayı veya isimleri aynı hizaya almak istiyorum yapmak istediğim düzeni örnek dosya olarak ekliyorum yardımcı olursanız sevinirim

https://dosya.co/kblihunphuss/örnek.xlsx.html

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Sub test()
    Dim Bak As Long
    Dim K_No As String
    
    K_No = Cells(5, "B")
    For Bak = 6 To Cells(Rows.Count, "B").End(xlUp).Row
        If K_No = Cells(Bak, "B") Then
            Cells(Bak, "G") = Cells(Bak - 1, "G")
            Cells(Bak, "H") = Cells(Bak - 1, "H")
        Else
            K_No = Cells(Bak, "B")
        End If
    Next
End Sub

 

[orkunozbudak]

Merhaba.
Deneyiniz.

Sub test()
    Dim Bak As Long
    Dim K_No As String
   
    K_No = Cells(5, "B")
    For Bak = 6 To Cells(Rows.Count, "B").End(xlUp).Row
        If K_No = Cells(Bak, "B") Then
            Cells(Bak, "G") = Cells(Bak - 1, "G")
            Cells(Bak, "H") = Cells(Bak - 1, "H")
        Else
            K_No = Cells(Bak, "B")
        End If
    Next
End Sub

merhaba hocam sayıları karıştırıyor bu şekilde çalıştığım dosyayı ekliyorum

İndir örnek xlsx

Dosyayı indir örnek xlsx

dosya.co

 

[Muzaffer Ali]

Kuralları söyler misiniz.
Hangi kurallara göre hangi sütunlar nasıl düzenlenmesi gerekiyor?

 

[orkunozbudak]

Kuralları söyler misiniz.
Hangi kurallara göre hangi sütunlar nasıl düzenlenmesi gerekiyor?
[/QUOTE


gruplardaki g ve h stünundaki sayılar karışık ben benzer sayıları aynı hizaya almak istiyorum örnek

10106.7-1	0,5​	sw		35	107	sw
10106.7-2	0,5​	bl		35	107	bl
10106.7-3	0,5​	ge		107	35	ge
10106.7-4	0,5​	br		107	35	br

bunları bu şekilde düzenlemek istiyorum

10106.7-1	0,5​	sw		35	107	sw
10106.7-2	0,5​	bl		35	107	bl
10106.7-3	0,5​	ge		35	107	ge
10106.7-4	0,5​	br		35	107	br

 

[Muzaffer Ali]

Kuralları söyleyin dedim ama tamamını söylemiyorsunuz. Solda kodlar var o kodlar ile ilgili hiçbir kural yok mu? Sorunuzu ve yapmak istediğiniz şeyi eksiksiz söylemelisiniz.

İlk örnekteki dosyanızda veriler 5. satırdan başlıyordu, son dosyada 3. satırdan başlıyor.
Kodlarda 5 ve 6 rakamı var bunları ona göre düzeltmeniz gerekir.
5 yerine 3, 6 yerine 4 yazın.