14. marts 2004 - 16:11
Der er
3 kommentarer og
1 løsning
Tilføj tekst i bunden af ark
Kan man ikke lave en makro som automatisk tilføjer en tekst i bunden af sit excel dokument, med bunden mener jeg, linien efter hvor der sidst er skrevet noget i.
EKS:
Jeg har skrevet noget i A1 til A38
den nye tekst skal så tilføjes i A39.
Desuden skal den så i B39, C39, D39 og E39 sætte baggrundsfarven til Rød.
Og som en ekstra bonus sætte en ramme omkring A39 til E39
Teksten som skal tilføjes, skal komme fra en inputboks eller hvad man nu kan?
Håber der er nogle som kan løse dette for mig!
14. marts 2004 - 18:28
#1
er det sådan du mener
Public Sub SidsteLinie()
Dim str As String
str = InputBox("Indtast tekst til sidste linie")
Rowcount = Cells(65536, 1).End(xlUp).Offset(1, 0).Row
Cells(Rowcount, 1).Value = str
Range(Cells(Rowcount, 2), Cells(Rowcount, 5)).Interior.ColorIndex = 3
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders.LineStyle = xlContinuous
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders.Weight = xlMedium
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders(xlInsideVertical).LineStyle = xlNone
End Sub
