VBA Select range based on criteria in column

Good day to all,

thanks to help me with developing a vba code taht Will do the followting:

EXAMPLE.xlsx

it sohuld select range fm column A to E for rach customer in column C - please check attached example table.
Refering to attached table,for customer sohuld select fm range A2:E5, for customer 2 fm A6:E7...ecc..it should also incude the header row.

thanks in advance.

brgds,
forfiett

What do you plan on doing after the data is selected?

Dear,

Print out selection.

Brgds,
forfiett

For each customer? Or when you select a customer row?

I want to print out a range for each cutomer.

Maybe:

Sub forfiett()
Dim i As Long, printrange As Range, x As Long, y As Long
For i = Range("C" & Rows.Count).End(3).row To 1 Step -1
    If Cells(i, "C") <> Cells(i + 1, "C") Then
        Rows(i + 1).Resize(2).Insert
    End If
Next i
For Each printrange In Range("C2:C" & Range("C" & Rows.Count).End(3).row + 1).SpecialCells(xlConstants, xlTextValues).Areas
    x = printrange.Cells(1, 1).row
    y = printrange.Cells(1, 1).End(xlDown).row

    If Cells(x + 1, "C") = "" Then y = y - 2
    If y >= x + 2 Then
    With Range(Cells(x, "A"), Cells(y, "E"))
        YOUR PRINT CODE
    End With
    Else
    y = x + 1
    With Range(Cells(x, "A"), Cells(y, "E"))
         YOUR PRINT CODE
    End With
    End If
Next printrange
Range("C2:C" & Range("C" & Rows.Count).End(3).row).SpecialCells(4).EntireRow.Delete
End Sub

Note: In Column 3 on your test file Customer is spelled a variety of ways.

Dear,

thanks for provided but is not wokitng for me (is not working like it sould):

it must pritn out as attached examples for each customer in column C

2.pdf1.pdf3.pdf

On a test file it is working perfectly but I have some problem seting up it at my main file.
My original file is fm range A to AE (print range) and customers are in column "J" starting in cell 4, so from J4 and not C2 as on test file.
Can you please help me modifying the code for my original file.

thanks!!

Maybe:

Sub forfiett()
Dim i As Long, printrange As Range, x As Long, y As Long
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .Calculation = xlCalculationAutomatic
End With
For i = Range("J" & Rows.Count).End(3).row To 1 Step -1
    If Cells(i, "J") <> Cells(i + 1, "J") Then
        Rows(i + 1).Resize(2).Insert
    End If
Next i
For Each printrange In Range("J2:J" & Range("J" & Rows.Count).End(3).row + 1).SpecialCells(2, 2).Areas
    x = printrange.Cells(1, 1).row
    y = printrange.Cells(1, 1).End(4).row
    If Cells(x + 1, "C") = "" Then y = y - 2
    If y >= x + 2 Then
    With ActiveSheet.PageSetup
        .PrintArea = Range(Cells(x, "A"), Cells(y, "AE")).Address
        .Orientation = xlLandscape
        .PrintTitleRows = "$1:$1"
    End With
        ActiveWindow.SelectedSheets.PrintOut copies:=1
    Else
    y = x + 1
    With ActiveSheet.PageSetup
        .PrintArea = Range(Cells(x, "A"), Cells(y, "AE")).Address
        .Orientation = xlLandscape
        .PrintTitleRows = "$1:$1"
    End With
    ActiveWindow.SelectedSheets.PrintOut copies:=1
    End If
Next printrange
Range("J2:J" & Range("J" & Rows.Count).End(3).row).SpecialCells(4).EntireRow.Delete
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .Calculation = xlCalculationManual
End With
End Sub

it is working perfectly,

my next question is, it is possible to include also the last (TOTAL) row?

thanks

any good news?

Good day,

is possible to amend code to print in PDF file with file name from cell i/o print out on printer.

Thanks.