Avatar billede Butterfly Ekspert
08. januar 2016 - 08:08 Der er 1 kommentar og
2 løsninger

En makro hvis A1>0 og en anden hvis A1<0, indarbejdet i samme makro

Hej og rigtig godt nytår
Jeg har en makro der er god, hvis der står noget i A1, men hvis A1 er tom er den meget længe om at lave en beregning. Hvordan får jeg den til at skelne mellem om der er data i A1 eller ej?

Mine nuværende koder ser sådan ud:
Dim tekst As String
    Dim i As Integer
    tekst = Range("A1")
        For i = 1 To Len(tekst)
        If Len(tekst) > 0 Then
            Cells(i + 1, 1) = Left(tekst, 7)
            Range("b2").Offset(i - 1, 0).Value = i
            tekst = Mid(tekst, 8)
        Else
            Exit For
        End If
    Next i
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=+COUNTIF(‘Lager 2'!C[2],RC[-1])"
    ActiveCell.FormulaR1C1 = "=+COUNTIF(‘Lager 2'!C[2],RC[-1])"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(COUNTIF(‘Lager 2'!C[2],RC[-1])>0,""På lager"",""Står et andet sted"")"
    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
        Range("c2").Select
      Do
        Do
        If ActiveCell.Offset(0, -1).Value > 0 Then
        ActiveCell.FormulaR1C1 = "=+IF(RC[-2]>0,COUNTIF(C[-2],RC[-2]),"" "")"
        ElseIf ActiveCell.Offset(0, -2).Value < 0 Then
        ActiveCell.Value = 0
        Else
        End If
      ' Ryk en celle ned
          ActiveCell.Offset(1, 0).Range("A1").Select
          Loop Until ActiveCell.Offset(0, -2).Value = ""
    Loop Until ActiveCell.Value = ""

  Range("A1").Select
Avatar billede kabbak Professor
08. januar 2016 - 11:25 #1
If Not IsEmpty(Range("A1")) Then

kode

End If
Avatar billede Butterfly Ekspert
08. januar 2016 - 12:28 #2
Mange tak, det virker perfekt, skriv et svar du får point
Avatar billede kabbak Professor
08. januar 2016 - 14:13 #3
et svar ;-))
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

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