Kære Alle.
Jeg er ny i Excel VBA verdenen, men lære undervejs.
Jeg har prøvet at lave en simpel "Cut and Paste" funktion, men får nu ligepludselig type mismatch fejl.
Min kode er:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer
Dim V As Integer
Dim Y As Integer
Dim Z As Integer
I = 2
V = 0
Y = 2
Z = 0
For V = 0 To 1
If Ark1.Cells(I, 1) = "" Then
V = V + 1
Else: I = I + 1
End If
Next
For Z = 0 To 1
If Ark4.Cells(Y, 1) > 0 Then
If Ark4.Cells(Y, 10) And Ark4.Cells(Y, 11) And Ark4.Cells(Y, 12) And Ark4.Cells(Y, 13) = "X" Then
Ark1.Cells(Y, 1).EntireRow.Cut (Ark4.Cells(I, 2))
Y = Y + 1
End If
Else: Z = Z + 1
End If
Next
End Sub
Det er i "If Ark4.Cells(Y, 10) And Ark4.Cells(Y, 11) And Ark4.Cells(Y, 12) And Ark4.Cells(Y, 13) = "X" Then", den laver fejl.
Alle de pågældende felter er formateret som tekst.
Håber at nogen kan hjælpe. Er virkelig på bar bund.
På forhånd tak.
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Hjælp til type mismatch
Emne funktioner
