Aynı ise satırı boş geç

[catalinastrap]

Merhaba Arkadaşlar;
Ekte ki dosyada formül macro kombinasyonu ile bir dosyam var
ancak sonuc2 sayfasına sonuc sayfasını kullanmadan dataların gelmesini istiyorum
ancak aktarırken packace number ler arasında boşluk vermeli.
Sonuc2 deki mantığa göre yani örneğin 1-2 yazıyorsa ayrı grup 3,3,3 şeklide devam ediyorsa ayrı grup şekline olmalı

 

[catalinastrap]

arkadaşlar bir gelişme varmı acaba ?

 

[apocalyt]

şunu bir deneyin..doru anlamışımdır umarım..

Sub daylight()
Sheets("SONUC2").Range("a18:ı10000").ClearContents
Sheets("SONUC").Range("a18:ı" & Sheets("SONUC").[a10000].End(3).Row).Copy
Sheets("SONUC2").Range("a18").PasteSpecial
For x = 18 To Sheets("SONUC2").[a10000].End(3).Row
If Cells(x, 1) <> Cells(x + 1, 1) Then
Rows(x + 1).Insert
x = x + 1
End If
Next x
End Sub

 

[catalinastrap]

Sayın apocalyt;
sonuc sayfasını gizleyip formülleride sadece değer olarak getirebilirmiyiz

 

[apocalyt]

şunu deneyin..

Sub daylight()
Application.ScreenUpdating = False
Sheets("SONUC2").Range("a18:ı10000").ClearContents
Sheets("SONUC").Range("a18:ı" & Sheets("SONUC").[a10000].End(3).Row).Copy
Sheets("SONUC2").Range("a18").PasteSpecial (xlPasteValuesAndNumberFormats)
For x = 18 To Sheets("SONUC2").[a10000].End(3).Row
If Cells(x, 1) <> Cells(x + 1, 1) Then
Rows(x + 1).Insert
x = x + 1
End If
Next x
Sheets("SONUC").Visible = False
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[catalinastrap]

hocam çok teşekkür ederim

 

[apocalyt]

rica ederim..