• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Merhaba.
Deneyiniz.
Kod:
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.
Deneyiniz.
Kod:
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

 
Kuralları söyler misiniz.
Hangi kurallara göre hangi sütunlar nasıl düzenlenmesi gerekiyor?
 
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


 
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.
 
Geri
Üst