CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede lalaman2 Nybegynder
04. februar 2010 - 13:57 Der er 7 kommentarer

VBA: find de rigtige rækker og slet resten

Hej jeg har et problem jeg håber i kan hjælpe mig med.

Jeg har en excel fil der indeholder mange rækker med data, jeg ønsker at benytte VBA til at løse nedenstående opgave.

Kolonne A indeholder en produkt kode(tal) samt beskrivelse(bogstaver)

Jeg ønsker at se de rækker hvor produktkoden kun er på 2 cifre, og slette de rækker hvor produktkoden er på flere cifre end 2.

Hvis i har brug for mere information er i velkommen til at skrive.
Avatar billede martin_moth Mester
04. februar 2010 - 14:13 #1
Ved du om produktkoden altid står først, eller sidst? det vil gøre det lidt nemmere, nemlig.

Kan du ikek komme med eksempler på indhold i kolonne A?
Avatar billede lalaman2 Nybegynder
04. februar 2010 - 14:23 #2
produktkoden står altid først.
eksempelvis:
132010 benzin
121030 maskiner
1020 diesel
45 smør
Avatar billede kabbak Professor
05. februar 2010 - 09:05 #3
sæt den i en tom kolonne og når du har rettet til rigtige celle så træk den ned til enden.
Brug så autofilter, til at vælge dem som skal slettes.

=HVIS(FIND(" ";A1;1)=3;"Gemmes";"Slettes")
Avatar billede lalaman2 Nybegynder
05. februar 2010 - 11:29 #4
det skal laves i VBA
Avatar billede kabbak Professor
05. februar 2010 - 11:53 #5
Public Sub SletOverToTal()
    Dim Til As Long, Kol As Integer, I As Long, A As Variant
    Kol = ActiveCell.Column
    Til = Cells(65536, Kol).End(xlUp).Row
    For I = Til To 2 Step -1
        A = Split(Cells(I, Kol), " ")
        If Val(A(0)) >= 100 Then Cells(I, Kol).EntireRow.Delete
    Next
End Sub


Stil dig på en celle i den kolonne som den skal virke på inden du kører den.

HUSK at makroer ikke kan fortrydes.
Avatar billede lalaman2 Nybegynder
06. februar 2010 - 13:26 #6
koden er sat ind i en sammenhæng hvor der bliver hentet et dokument inden. koden fejler ved If Val(A(0)) >= 100 Then. dog udføre den handlingen korrekt. du får de point, hvis jeg får det til at virke 100 %
Avatar billede kabbak Professor
06. februar 2010 - 14:34 #7
prøv at lave

Val(A(0)) >= 100

om til
Len(A(0)) >2
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:13 Smart Switch Android til Android Af valby i Mobiltelefoner
I dag 08:16 Outlook Af jdann i E-mail programmer
I går 20:00 Genie Timeline Af Malm i Andet software
I går 16:09 Plex virker ikke uden for netværk ??? Af Ronron i Mac
I går 16:03 exFat Af Bruce i Apps til iOS
White papers
Flere white papers »


Premium
Teaser billede
Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber
Læs mere »
Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen
EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder
Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge
Se alle »
Computerworld
Teaser billede
Omfattende netværksproblemer hos TDC: Nu er årsagen muligvis fundet
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Stortest: Med USB-C skulle alle kabler være lige - men det er de bare slet ikke
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sådan gør du: Elektronisk dokumentudveksling i praksis
Sådan: Én løsning til compliance, sikkerhed og overblik
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »