15. september 2014 - 13:21Der er
5 kommentarer og 1 løsning
Makrohjælp
Månedligt downloader jeg et Excel ark med data. Data er ikke de samme i hver måned, men der indgår altid nogle data, som skal slettes.
1. Jeg vil gerne lave en makro, som: Hvis der i A:A står "KO" i en linje, så skal hele linjen fjernes
Og meget gerne også en anden makro, der med et smæk, kan fjerne linjerne med "KO", "HEST" og "HUND" i A:A Ko, hest og hund vil ikke stå i samme linje i de forskellige måneder
2. Jeg vil gerne lave formel som: A1 er måske blank. B1 indeholder et tal. A1 og B1 skal ganges. Hvis A1 er blank skal B1 ganges med 100. Hvis A1=65, skal B1 ganges med 65
Disse 2 makroer skulle kunne slette hele rækken,hvis der i Kolonne står "Ko", eller "Ko", "Hest eller "Hund"
Sub SletKO() LastRow = ActiveSheet.UsedRange.Rows.Count For x = LastRow To 2 Step -1 If Cells(x, 1) = "Ko" Then Cells(x, 1).EntireRow.Delete End If Next End Sub
Sub SletKoHestHund() LastRow = ActiveSheet.UsedRange.Rows.Count For x = LastRow To 2 Step -1 If Cells(x, 1) = "Ko" Or Cells(x, 1) = "Hest" Or Cells(x, 1) = "Hund" Then Cells(x, 1).EntireRow.Delete End If Next End Sub
Bemærk at makroerne skelner mellem store og små bogstaver.
Angående formelen, så kan dette måske bruges: =A1*B1+100*B1*(A1=0)
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.
