kolom dynamisch vullen

[xmir]

Ik heb kolom A, B en C waarvan kolom B leeg is.
Het aantal rijen varieert (per export uit een systeem).
Nu wil ik kolom B vullen met een x tm de rij die gevuld is, kan dat dmv een macro?
Alle macro's die ik heb geprobeerd op te nemen vullen de kolom altijd tm dezelfde rij dus ik kom er zelf niet uit helaas.

Tevens moet dit op meerdere tabbladen (bv tab1, tab2, tab3) uitgevoerd worden die allemaal een andere hoeveelheid rijen hebben maar daar kom ik mogelijk wel uit als ik het begin heb.

 

[VenA]

bv

Sub VenA()
  Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row) = "x"
End Sub

 

[xmir]

Dat is hem en het is ook gelukt dit op meerdere sheets toe te passen. Bedankt dus weer en case closed

 

[xmir]

kan ik hier nog iets inbouwen dat de macro doorgaat als de naam van een sheet niet gevonden wordt? In onderstaand voorbeeld dus dat de macro doorgaat naar "tab3" als "tab2" niet gevonden wordt?
Ik heb nu:
Sheets("tab1").Select
Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row) = "x"
Sheets("tab2").Select
Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row) = "x"
Sheets("tab3").Select
Range(C1:C" & Cells(Rows.Count, 1).End(xlUp).Row) = "x"
Sheets("tab4").Select
Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row) = "x"

 

[Cobbe]

Test deze eens:

Sub cobbe()
On Error Resume Next
For i = 1 To Sheets.Count
 With Sheets("tab" & i)
    .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row) = "x"
 End With
Next
End Sub

 

[xmir]

mijn werkelijke tabbladen heten anders....verschillende namen bv "HC" en "RA" .... hoe zet ik dat in jou macro?

 

[Cobbe]

Zo dan, echter geldt dit voor ALLE bladen:

Sub cobbe()
On Error Resume Next
For i = 1 To Sheets.Count
 With Sheets(i)
    .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row) = "x"
 End With
Next
End Sub

Je kan een tab uitsluiten door deze regel toe te voegen:

If NOT sheets(i).name = "blad1" then         'Blad1 is de tab die je wil uitsluiten.
 With Sheets(i)
    .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row) = "x"
 End With
End if

 

[xmir]

Dat is hem! Super bedankt! Case closed maar weer.