VBA range uden specifik adresse

Jeg skal lige forstå, din range er den ikke et antal celler på den måde som du angiver det?
Skal der stå 45 i alle de celler?

jeg forstår ikke spørgsmålet.
der skal stå 45 i alle de tomme celler i KolB til og med den række hvor der er udfyldt noget i KolP

Jeg kan forsøge at give et eksempel:
Hvis i Kolb første tomme celle er b7 og i KolP er første tomme celle c21.
Der skal så stå 45 i cellerne b7:b20.

Jeg synes blot at det var "underligt" at skrive 45 i flere celler, så jeg vil blot sikre mig at det var det som du mente.

Jeg vil anbefale at du laver to udregninger. En for hver kolonne for at finde den relevante række.
Herefter en ny udregning hvor du kombinere de to udregninger til en samlet range.

Dette for at bevare overblikket i udregningen.
I og med at du beregner på flere kolonner men ikke med henblik på en samlet range, synes jeg at din tilgangsvinkel er kompleks.

#3 - der skal vel ikke beregnes noget, bare udfyldes med 45, hvis B-kolonnen er tom og C-kolonnen ikke er tom.

Okay, Jeg tror jeg forstår hvad du siger, men jeg har intet begreb om hvordan?

#4
Enig, der kan jo laves en løkke som vurderer på b og p løbende og udfylder med 45  som alternativ til at finde den relevante range i kolonne b først med henblik på udfyldelse.

Prøv med denne kode:

For Each c In Range("b:B").Cells
    If IsEmpty(c) Then
        If Not IsEmpty(c.Offset(0, 1)) Then
            c.Value = 45
        Else
            Exit Sub
        End If
    End If
Next

Ret selv til med dine egen arkreferencer og områder.

+1 til #7
jeg tillader mig med et alternativ

  Dim row_p As Integer
  Dim row_b As Integer
  Dim c As Range
 
  row_b = Range("B1").End(xlDown).Offset(1, 0).Row
  row_p = Range("p65536").End(xlUp).Offset(-2, 0).Row - 1
 
  For Each c In Range(Cells(row_b, 2), Cells(row_p, 2))
    c.Value = 45
    Next

Se bort fra ovenstående eller evt brug dette.
#7 er bedst.

Sub ShadeEverySecondRow()
  Dim row_p As Integer
  Dim row_b As Integer
  Dim c As Range
 
  row_b = Range("B1").End(xlDown).Offset(1, 0).Row
  row_p = Range("p65536").End(xlUp).End(xlUp).Row - 1
 
  For Each c In Range(Cells(row_b, 2), Cells(row_p, 2))
    c.Value = 45
    Next
End Sub

Måske:

Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("B" & Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("p6500").End(xlUp).Row + 1 & ":b" & Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("p6500").End(xlUp).Row) = "45"

Hvis det virker, så er det jo fint :-)

Det gør det ikke ;-) Der er en lille fejl.

Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("B" & Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("B6500").End(xlUp).Row + 1 & ":B" & Workbooks("Tom Ztilskind").Worksheets("Ark1").Range("P6500").End(xlUp).Row) = "45"

store_morten #12 virker lige præcis :) tak for hjælpen.

Velkommen 😎