Yinelenen Numaralardan Oluşan Sütunun Yinelenmeden Satıra Dönüşümü

[likaba]

Merhaba arkadaşlar,

Bir konu hakkında yardımınıza ihtiyacım var. Ekli excel'de 2 isimli sayfadaki "B" sütunundaki değerleri, 1 isimli sayfada "C" sütunundan başlayarak yana doğru yapıştırılmasını istiyorum. Bu işlemin 2 isimli sayfada "A" sütunundaki her ekipman numarası değiştiğinde 1 isimli sayfaya işlenmesi gerekiyor. Bu excel yaklaşık 100 bin satır olduğu için sanırım makro gerekecek. Sanırım anlatması zor oldu ama ekli exceldeki örnek açıklayıcı oldu.

 

[Asri]

Merhaba arkadaşlar,

Bir konu hakkında yardımınıza ihtiyacım var. Ekli excel'de 2 isimli sayfadaki "B" sütunundaki değerleri, 1 isimli sayfada "C" sütunundan başlayarak yana doğru yapıştırılmasını istiyorum. Bu işlemin 2 isimli sayfada "A" sütunundaki her ekipman numarası değiştiğinde 1 isimli sayfaya işlenmesi gerekiyor. Bu excel yaklaşık 100 bin satır olduğu için sanırım makro gerekecek. Sanırım anlatması zor oldu ama ekli exceldeki örnek açıklayıcı oldu.

Aşağıdaki şekilde deneyiniz.

Sub sirali_aktar()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False

   Set sh1 = Sheets("1")
   Set sh2 = Sheets("2")
   sonsatir = sh2.Cells(Rows.Count, "A").End(3).Row
   satir = 2
   kolon = 1
   For i = 2 To sonsatir
     ekipman = sh2.Cells(i, 1).Value
     deger = sh2.Cells(i, 2).Value
     If i = 2 Then
        satir = 3
        kolon = 2
        sh1.Cells(satir, kolon).Value = ekipman
        eskiekipman = ekipman
     End If
     
     If eskiekipman = ekipman Then
        kolon = kolon + 1
        sh1.Cells(satir, kolon).Value = deger
     Else
        satir = satir + 1
        kolon = 2
        sh1.Cells(satir, kolon).Value = ekipman
        kolon = kolon + 1
        sh1.Cells(satir, kolon).Value = deger
     End If
     eskiekipman = ekipman
   Next i
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub

 

[likaba]

Çok teşekkürler Sayın Asri. Yine yardımıma hızır gibi yetiştiniz. İstediğimi tam anlamıyla karşıladı.