End xlup zoeken van 1e 1

[Oude leerling]

Is het mogelijk om met onderstaande code ook de eerste 1 te vinden
Ik heb dus een kolom met getallen en wil de eerste 1 vinden en dan 5 posities naar links

Range("I50").End(xlUp).Offset(-1, -5).Activate
Jaap

 

[pasan]

Sub voorbeeld()
 With ActiveSheet
  On Error Resume Next
   Application.Goto Cells(Cells(WorksheetFunction.Match(1, Range("I:I"), 0), 1).Row, 4)
 End With
End Sub

 

[Oude leerling]

Perfect dat werkt goed.

Als hij nu vanuit die positie een cel omhoog moet wat moet er dan gebeuren?
Ik heb alle waarden denk ik al uitgeprobeerd maar het lukt niet

 

[snb]

@pasan

Er wordt in de code niet verwezen naar 'activesheet'; waarom dan 'With Activesheet ' ?

@OL

Vertel svp:
- de beginsituatie
- de gewenste eindsituatie
- en wat de bedoeling (evt. vervolg) van die 'eind'situatie is.

bijv.

sn=[I1:I50]
for j=ubound(sn) to 1 step -1
  if sn(j,1)=1 then ...
next

 

[pasan]

Range("I:I"), 0), 1).Row [COLOR="#FF0000"]- 1[/COLOR], 4)

"activesheet" ....... Ik verwachte eigenlijk nog een vervolg vraag als ik eerlijk ben:d
of

Sub voorbeeld()
 With Sheets("Blad1")
  On Error Resume Next
   Application.Goto .Cells(.Cells(WorksheetFunction.Match(1, .Range("I:I"), 0), 1).Row - 1, 4)
 End With
End Sub

 

[Oude leerling]

Pasan ,

Ik heb jou code toegepast en het werkt
Ik moet hem echter gebruiken om een bepaald gebied te kopiëren met 2 variabele

B11:B13
Range("B" & (Range("J4").Value * 2 + 7), Application.Goto Cells(Cells(WorksheetFunction.Match(1, Range("G:G"), 0), 1)).Row -1, 2).Copy

Zou jij eens willen kijken wat de code wel moet zijn want wat ik gemaakt werkt niet

JaapBekijk bijlage Test gebied met 2 variabele copieren.xlsm

 

[snb]

ipv #2

Sub M_snb()
   Application.Goto Cells([max((I1:I1000=1)*row(1:1000))], 4)
End Sub

 

[pasan]

Probeer eerst eens uit te leggen wat de criteria zijn

 

[Oude leerling]

Snb,

Ja dat werkt ook goed.

Wat nu als ik niet de eerste "1" maar de eerste "0" van onderaf wil hebben terwijl er "1"'s overgeslagen moete worden.
Ik doorgrond de code niet , wat moet ik dan wijzigen

 

[Oude leerling]

Pasan ,

Ik wil een variabel gebied in kolom "B' kopiëren en dan horizontaal plakken in "J10"

De eerste variabele in kolom "B" word gedefinieerd door , Range("B" & (Range("J4").Value * 2 + 7) , met als uitkomst "B11"
"J4" , in dit geval 2 , kan ook een ander getal zijn.

De tweede variabele in kolom "B" word gedefinieerd door , Application.Goto Cells(Cells(WorksheetFunction.Match(1, Range("G:G"), 0), 1)).Row -1, 2).
De uitkomst hiervan is "B13" .

Met deze 2 code's wil ik een range in kolom "B" vastleggen en kopiëren.

Zie hieronder.

Range("B" & (Range("J4").Value * 2 + 7), Application.Goto Cells(Cells(WorksheetFunction.Match(1, Range("G:G"), 0), 1)).Row -1, 2).Copy

Dit werkt echter niet. Weet jij een oplossing??

 

[pasan]

of ik jou logica nu snap of niet maar deze werkt in jou opzet

Range("B" & (Range("J4").Value * 2 + 7), "B" & (WorksheetFunction.Match(1, Range("G:G"), 0)) - 1).Copy

 

[Oude leerling]

Pasan,
Het zal wel eraan gelegen hebben dat ik die gehele code toepaste.
Application.Goto Cells(Cells dit gedeelte was dus overbodig.
Probleem opgelost
Dank je wel voor de hulp
Jaap