rijnummer geven aan einde letter rij

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Hi weet iemand hoe je het rijnummer in een msgbox kan weergeven bij het wisselen van een letter in een gealfabetiseerde lijst. En dan het rijnummer van de laatste letter van de reeks. Dus aan het eind van de a's het rijnummer van de laatste a.
alvast bedankt rob

Bekijk bijlage DatabaseSort voorbeeld.xlsm
 
Zo?

Code: 
Private Sub CommandButton2_Click()
  ar = Cells(1).CurrentRegion.Offset(1)
  For j = 2 To UBound(ar)
    If ar(j, 2) <> ar(j - 1, 2) Then c00 = c00 & ar(j - 1, 2) & " rij " & j & vbLf
  Next j
  MsgBox c00
End Sub
 
of zo?

Code: 
Private Sub CommandButton2_Click()
rijnummer = Sheets("DataBase").Columns(2).Find(What:="a", Searchorder:=xlByRows, Searchdirection:=xlPrevious).Row
MsgBox rijnummer
End Sub

Iets ingekort:

Code: 
Private Sub CommandButton2_Click()
MsgBox Sheets("DataBase").Columns(2).Find("a", , , , , 2).Row
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan