En makro hvis A1>0 og en anden hvis A1<0, indarbejdet i samme makro
Hej og rigtig godt nytårJeg 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