Celadres?

[Demeter]

Als ik heb:

Set MyRange = Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCell(xlCellTypeVisible)
        
        d = Application.WorksheetFunction.Small(MyRange, 1)

Hoe krijg ik dan de waarde uit de cel rechts van d?

f = d.offset(,1) werkt niet omdat d geen range is.
Zover ben ik al. Nu moet ik dus het adress van d cel te pakken zien te krijgen waarin d staat. Nieuwe zoekopdracht is te omslachtig.

Iemand?

Ik kom er niet uit deze middag.
Kleine setback in mijn vooruitgang met VBA.


Groet,
Ferenc

 

[Wigi]

Als ik heb:

Set MyRange = Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCell(xlCellTypeVisible)
        
        d = Application.WorksheetFunction.Small(MyRange, 1)

Hoe krijg ik dan de waarde uit de cel rechts van d?

f = d.offset(,1) werkt niet omdat d geen range is.
Zover ben ik al. Nu moet ik dus het adress van d cel te pakken zien te krijgen waarin d staat. Nieuwe zoekopdracht is te omslachtig.

Iemand?

Ik kom er niet uit deze middag.
Kleine setback in mijn vooruitgang met VBA.

Groet,
Ferenc

Je zal toch een Find moeten programmeren, Ferenc . En veel beter dat dan een (inefficiënte) loop. Het opvangen van fouten hoeft in principe niet, want je weet dat het minimum wel ergens in je cellen moet staan.

Een programmeur als jij moet dat wel aankunnen... :thumb:
En anders kopieer je de code uit de helpfiles. met een beetje aanpassen kom je er dan ook.

Wigi

 

[Demeter]

Wigi,

Heb de find functie gevonden. Alleen de helpfile ontbreken bij mij (?).

Heb met hulp van de Ozgrid pagina het volgende in elkaar geplanst:

Sub Test_Find()
Dim vOurResult
Dim d
Dim startCel As Integer

Set MyRange = Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
d = Application.WorksheetFunction.Small(MyRange, 1)

d = Format(d, "[$-413]dd/mmm/yy;@")

If WorksheetFunction.CountIf(Sheets("Blad1").Range("A1:A10"), d) > 0 Then
    With Sheets("Blad1").Range("A1:A10")
    
        vOurResult = .Find(What:="AAA", After:=.Cells(1, 1), _
            LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False).Offset(0, 1)
            
    End With
End If

Range("E1") = vOurResult

End Sub

Gaat nu om de zoek waarde in de Find functie, als ik de "AAA" verander in d (van mijn variable werk deze code niet meer?

Heb jij enig idee?

Groet,
Ferenc

 

[Wigi]

Surf eens naar deze pagina op Oz.

 

[Demeter]

Wigi,

Thanks, that will do the trick.

Groet,
Ferenc