Finding Credit and Debit Data and Creating Pivot

[littleiitin]

Prabhu,
I am seeing a space " ClearC ontents". Please remove it.
I have tried in my workbook.. It is running fine at my end.

Thanks
Rahul Singh

[Prabhu]

Hi Rahul,

I Am using the same workbook which you have uploaded.

I have inserted New date sheet and deleted the existing 3 sheets and run the macro.

But the same error is repeating. I have attached the workbook for your reference.

Regards,

Prabhu

[Prabhu]

Hi Rahul,

Can you help to solve the Query?

Regards,

Prabhu

[Prabhu]

Hi Friends,

Can any help to fix this issue?

Regards,

Prabhu

[Rasm]

Make sure to rename sheet1 to "Raw data" - also add code shown below - it will create the debit & credit sheets (if they dont already exists) - then the code runs fine - I have no idea if the data is right - but the code executes.

Sub CreatingPositiveNegativeSheet()
    
    Dim NewSheetX As Worksheet
    Astr = "NotExists"
    For ii = 1 To Worksheets.Count
        If Worksheets(ii).Name = "Credit" Then Astr = "Exists"
    Next ii
    If Astr = "NotExists" Then
        Set NewSheetX = Worksheets.Add    'This makes it active sheet
        ActiveSheet.Name = "Credit" ' Name of new 
    End If
    Astr = "NotExists"
    For ii = 1 To Worksheets.Count
        If Worksheets(ii).Name = "Debit" Then Astr = "Exists"
    Next ii
    If Astr = "NotExists" Then
        Set NewSheetX = Worksheets.Add    'This makes it active sheet
        ActiveSheet.Name = "Debit" ' Name of new sheet    
    End If
    ThisWorkbook.Worksheets("Raw Data").Activate 'This not need - but will make the Raw Data sheet the active sheet

[Prabhu]

Hi,

It is just creating two sheets. but data s are not moving from the data sheet(Raw data)

Regards,

Prabhu

[Rasm]

Prabhu
Hmmm-It moves data for me - that is odd.
Rasm