Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Automatisk sortering af budget

 Besvar Besvar
Forfatter
BjarkeKK Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 13-01-2017
Land: Danmark
Status: Offline
Point: 3
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér BjarkeKK Citér  BesvarSvar Direkte link til dette indlæg Emne: Automatisk sortering af budget
    Sendt: 08-11-2019 kl. 22:27
Hej Alle

Jeg er helt ny til VBA programmering og har derfor behov for lidt hjælp, da jeg sidder fast..

Det Makroen i sidste ende skal, er at sortere en månedport fra Homebank, ud i forskellige tabeller jeg har oprettet, med de forskellige grupperinger der nu er i et budget, husholdning, brændstof osv..

Jeg har indtil videre fået min Makro til at søge efter forskellige tekster i en tabel, og fået den til at klippe det søgte resultat ud, men når jeg vil sende den til min tabel på "Ark2" får jeg "runtime error 1004", som jeg ikke helt er klar over hvad betyder. Er der en venlig sjæl der kan hjælpe..?

Her er min nuværende kode:



Option Explicit
Public Function FindSidsteRækkeKolonne(ByVal wks As Worksheet, _
                                        ByVal intColumn As Integer) As Long ' Denne funktion finder den sidste række i kolonnen
    FindSidsteRækkeKolonne = wks.Cells(wks.Rows.Count, intColumn).End(xlUp).Row
End Function

Private Sub SoegEfterBrandstof()

   Dim i        As Integer              ' Denne linje definerer "i" som en integer
   Dim strAktuelTekst   As String
   Dim intSidsteRække   As Integer ' Sidste række
 
   intSidsteRække = FindSidsteRækkeKolonne(Ark1, 1)
   
   For i = 2 To intSidsteRække                  
   
   strAktuelTekst = Ark1.Cells(i, "B").Value
   
   'Do Until IsEmpty(ActiveCell)
    
      If strAktuelTekst Like "*CIRCLE K*" Or _
          strAktuelTekst Like "*DANSKE SPIL*" Then
          
          
            Ark1.Rows(i).Cut
            'reference the first cell in your table in the next line of code
            
            Worksheets("Ark2").Range("Brændstof").EntireRow.Insert.End(xlUp).Row
      
      End If
      
      Next
   
End Sub

Til top



Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2019 Dansk Regneark Forum - en del af Excel-regneark.dk