Udvidelse
Jeg har følgende stykke kode i excel:For x = 1 To 5000
' LastRow
If Worksheets("klodser").Cells(x, 5) = Range("a2") Then
Cells(y, 1) = Worksheets("Klodser").Cells(x, 7)
Cells(y, 2) = Worksheets("Klodser").Cells(x, 12)
Cells(y, 3) = Worksheets("Klodser").Cells(x, 8)
Cells(y, 4) = Worksheets("Klodser").Cells(x, 9)
Cells(y, 5) = Worksheets("Klodser").Cells(x, 10)
Cells(y, 6) = Worksheets("Klodser").Cells(x, 11)
Cells(y, 7).Select
ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets("Klodser").Name & "!A" & x
Set MyCell = Cells(y, 8)
With MyCell
Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
End With
With btn
.Caption = "Slet"
.Name = "Button" & x
.OnAction = "DeleteData"
End With
y = y + 1
End If
Next
den løber arket"klodser" igennem og de linier, hvor der er match med celle a2 vælges...
det virker fint.
Nu kunne jeg godt tænke mig, at den bagefter (i en ny if sætning) gennemgik regneark EXCEL1.klodser og så om der var match.
På den måde får jeg ikke et mega regneark men flere små. Men hvad skal den første linie hedde?
If excel1.Worksheets("klodser").Cells(x, 5) = Range("a2") Then ????
pft