CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

HBC Seniormester

04. februar 2021 - 13:44 Der er 4 kommentarer og
2 løsninger

Clear contents vba

Hej gutter,

Jeg har brug for lidt hjælp til en sub.
Jeg har mit område A:A som indeholder tekst i nogle og tal i andre celler.
Jeg har brug for, at de celler som indeholder tal bliver bevaret i cellerne og de celler som indeholder andet bliver indholdet slettet.
Alternativt så skal cellerne i området som indeholder tal større end 300000 kopieres til 3 kolonne.
Det ville nok faktisk være endnu bedre.

På forhånd tak.

Synes godt om

kim1a Ekspert

04. februar 2021 - 13:54 #1

Du kan enten løbe cellerne igennem enkeltvis, men hvis det er en længere kolonne ville jeg nok vbamæssigt indsætte:
=if(A1>300000;A1;"") også bagefter kopiere denne nye kolonne ind indsætte som værdi inden du rydder A.

Jeg håber det giver mening, hvis du har brug for inspiration til koden så sig til.

Synes godt om

jens48 Ekspert

04. februar 2021 - 14:44 #2

Inspireret af Kim1as ide har jeg lavet denne makro:

Sub Flyt()
Dim LastRow As Long
LastRow = Cells(1048576, 1).End(xlUp).Row
Range("C2:C" & LastRow).FormulaR1C1 = "=IF(AND(ISNUMBER(RC[-2]),RC[-2]>300000),RC[-2],"""")"
Range("C2:C" & LastRow).Copy
Range("C2:C" & LastRow).PasteSpecial xlPasteValues
Range("A2:A" & LastRow).ClearContents
End Sub

Synes godt om

HBC Seniormester

04. februar 2021 - 15:03 #3

Hej begge,

Den sidste fungere tildels.
Har måske ikke forklaret det ordentligt, sorry.
Den sidste kopierer fint tallene over, men den kopierer også de tomme celler over, så de eksisterende tal i kolonne 3 bliver overskrevet.

På forhånd tak 👍

Synes godt om

HBC Seniormester

04. februar 2021 - 15:19 #4

Jeg har lavet en macro, som laver den ønskede clear contents i kolonne 1, således at jeg bare skal have kopieret de celler som ikke er blanke.
Tænkte noget offset på 0, 3 men kan ikke huske hvordan jeg lige gør.
Er nok blevet lidt rusten.

Synes godt om

HBC Seniormester

04. februar 2021 - 15:25 #5

Jeg ved, at jeg vil kunne løse det med en hjælekolonne og lidt sammenkædning, men vil helst undgå dette.

Synes godt om

jens48 Ekspert

04. februar 2021 - 15:48 #6

Prøv med denne:

Sub Flyt()
Application.Calculation = xlCalculationManual
Dim LastRow, x As Long
LastRow = Cells(1048576, 1).End(xlUp).Row
For x = 2 To LastRow
If Cells(x, 1) > 300000 And IsNumeric(Cells(x, 1)) Then
Cells(x, 3) = Cells(x, 1)
End If
Next
Range("A2:A" & LastRow).ClearContents
Application.Calculation = xlCalculationAutomatic
End Sub

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Vise flere ark fra samme workbook Af Nanarsi i Excel	2	I dag 10:33	I dag 11:17
Makro: Hvis fundet flere, så.... Af EveryMA i Excel	1	I går 15:28	I dag 08:09
Dato opslag Af Klaus W i Excel	2	05/05/202416:17	05/05/202420:45
Slet automatisk indehol i felt så det blivet tomt Af gylling i Excel	1	05/05/202409:22	05/05/202417:02
Træk dato og måned ud af celle Af Klaus W i Excel	4	04/05/202413:46	04/05/202417:10

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS