Eksi değerleri sütunlara dağıtma

[bogazincocugu]

Merhabalar,

her artı değerin altında düzensiz bir şekilde bir-iki-üç-dört v.s. Adette eksi değer kesinti var. Ben artı değer ve bu değere ait kesintileri yan yana görmek isterim mümkün mü.
örnek ikinci sayfada

 

[asi_kral]

Merhabalar,

her artı değerin altında düzensiz bir şekilde bir-iki-üç-dört v.s. Adette eksi değer kesinti var. Ben artı değer ve bu değere ait kesintileri yan yana görmek isterim mümkün mü.
örnek ikinci sayfada

Merhaba
Boş bir module Kopyalayın ve deneyin.

Option Explicit
Sub eksi_değeri_sütunla_1967()
'Konu       :   Artı Değerlerin Eksi Değerler
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long
Dim a As Long, b As Long
Set asi = Sheets("SIRALI SÜTUNLU")
Application.ScreenUpdating = False
Cells.ClearContents
a = 3
For kral = 2 To asi.Range("A" & Rows.Count).End(xlUp).Row
If asi.Cells(kral, "A") > 0 Then
Cells(a, "B").Value = asi.Cells(kral, "A").Value
a = a + 1: b = 3
Else
Cells(a - 1, b).Value = asi.Cells(kral, "A").Value
b = b + 1
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.