Sorteren in VBA van 2 kolommen

Status
Niet open voor verdere reacties.
Bv

Code: 
Cells(1).CurrentRegion.Sort [B1], , , , , , , xlYes
 
Hi VenA , sorry voor geen feedback geven, ben er even mee bezig geweest. Ja het werkt maar ik moest er een sheet1.select voor zetten in mijn programma om het werkende te krijgen. Het voorbeeldbestand werkte perfect.
hardstikke bedankt.
 
Select is overbodig. In het voorbeeldbestand is het sheet4 dus hoe je het werkend hebt gekregen blijft dan wel een raadsel.

Code: 
Sheets("Database").Cells(1).CurrentRegion.Sort [B1], , , , , , , xlYes
 
geen idee, maar dat was wel de oplossing. ik heb er dit van gebakken
Code: 
Sub robNA()

  lr1 = Sheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To lr1
    If Application.WorksheetFunction.IsNA(Cells(i, 2)) Then
      robText = Cells(i, 3).Text
      UserForm2.TextBox1.Text = robText
      UserForm2.Show
      
      'MsgBox robText & vbLf & vbLf & "is een onbekende leverancier!"
    End If
  Next i
  
   Sheet4.Select
   Range("A1").Select
   Sheets("DataBase").Range("A1").CurrentRegion.Sort key1:=Range("B1"), order1:=xlAscending, Header:=xlYes

End Sub
Volgens mij kwam ik ergens op google of youtube iets tegen.

Maar ik ga het denk ik anders doen. Normaal staat de database met de tweede kolom op alfabeth , formule
Code: 
=LOOKUP(1000;SEARCH(KolA;C2);KolB)
heeft blijkbaar dat nodig. Nu wil ik na elke loop testen welke letter gekozen is en na de laaste een insert doen en daar de letter inzetten. zit de KolB nog steeds op alfabeth en is de DB na elke loop optimaal.
Hoe kan ik de laaste bvb a kiezen in de KolB, ze staan nu allemaal dus braaf onder elkaar? Of moet ik een nieuwe vraag openen?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan