Excel VBA. Wat is de fout in de formule om een rij cellen te selecteren

[KPTPTT]

Hallo,
Ik gebruik voor het selecteren van een rij cellen tot het ongedefinieerde einde van de rij het volgende principe: Range.("C1").End(xlUP).Select.
Ik pas de volgende formule toe: < Set sourceRowRange = Worksheets("Voorkamer").Range("C1").End(xlUp).Select > . Bij het uitvoeren krijg ik de volgende foutmelding 1004: < Eigenschap Select van klasse Range kan niet worden opgehaald>.
Waarom krijg ik deze fout en wat moet ik doen, graag uw hulp.

 

[VenA]

Met welk doel? Hoger dan rij 1 kan je niet. Select moet je ook weg laten.

 

[SjonR]

plaats eens een stukje code of een voorbeeldbestand. dat maakt het een stuk overzichtelijker. Code tussen codetags a.u.b.

Maar vanaf C1 tot laatst gevulde kolom in rij 1 :

Range(Cells(1, 3), Cells(1, Cells(1, 3).End(xlToRight).Column)).Select

 

[KPTPTT]

Dank voor de hulp. Ik heb een voorbeeld bestand toegevoegd. Ik wil rij 1 en rij 2 in VBA selecteren (module 2) (Sheet Achterkamer). Ik heb het voorbeeld en weglaten Select geprobeerd maar kom er niet uit. Let op dat de extensie van de bijlage is gewijzigd van .xlsm naar .txt. graag even terug wijzigen.

 

[edmoor]

Je kan ook gewoon het .xlsm bestand plaatsen.

 

[VenA]

Sub VenA()
  Sheets("Voorkamer").Cells(1).CurrentRegion.Select
End Sub

of

Sub VenA()
  Set r = Sheets("Voorkamer").Cells(1).CurrentRegion
End Sub

of

Sub VenA()
  ar = Sheets("Voorkamer").Cells(1).CurrentRegion
End Sub

 

[VenA]

Bedoel je dit met al jouw vraagstukken?

Sub VenA()
  ar = Sheets("voorkamer").Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    For jj = 1 To UBound(ar, 2)
    ar(j, jj) = IIf(VarType(ar(j, jj)) = vbBoolean, Abs(ar(j, jj)), ar(j, jj))
    Next jj
  Next j
  Sheets("Sheet1").Cells(1).Resize(UBound(ar, 2), UBound(ar)) = Application.Transpose(ar)
End Sub

 

[HSV]

Sub hsv()
With Sheets("voorkamer")
 .Cells(1).CurrentRegion.Name = "ber"
    sv = Application.Transpose([if(ber="","",if(ber=true,abs(ber),if(ber=false,0,ber)))])
    .Cells(30, 1).Resize(UBound(sv), 2) = sv
 End With
Application.Names("ber").Delete
End Sub

 

[HSV]

Je bent lekker bezig zie ik, twee keer dezelfde vraag stellen.