Legge til rad, etter siste rad med makro

[MsFoster]

R = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1

 

Ja, prøvde den, men den skriver kun ut en gang. Den skriver forøvrig over den gamle som er der.

[Harald Staff]

R = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1

 

finner raden til cellen under siste oppføring i A-kolonnen på første ark. Så da er det noe feil med implementeringen din, du bruker et annet ark, en annen kolonne, ... Det er det bare du selv som kan finne ut av.

[MsFoster]

Sub LeggTilKunde()

Dim X As Object

Dim R As Long

Dim TheCell As Range

 

R = Sheets(1).Cells(Rows.count, 1).End(xlUp).Row + 1

Sheets(1).Cells(R, 1).Value = ""

Sheets(1).Cells(R, 2).Value = ""

Sheets(1).Cells(R, 3).Value = ""

Sheets(1).Cells(R, 4).Value = ""

Sheets(1).Cells(R, 5).Value = ""

Set TheCell = Cells(R, 6)

Set X = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _

TheCell.Left, TheCell.Top, TheCell.Width, TheCell.Height)

X.Select

Selection.Characters.Text = "Slett kunde"

X.OnAction = ThisWorkbook.Name & "!slettKunde"

Set X = Nothing

Cells(R, 1).Select

End Sub

 

 

slik har jeg det nå, men den legger kun til en rad.

[Harald Staff]

Sheets(1).Cells(R, 1).Value = ""

 

?

 

Du må da skjønne at hvis du skriver ingenting i en rad, så vil den fortsette å være ledig. Har de ikke navn og adresse disse kundene dine ?

[MsFoster]

Jeg skal bare skrive ut en tom rad, informasjon om kunde skrives inn manuellt.

[Harald Staff]

Hvorfor sa du ikke det med en gang da ? Et Excel-ark har allerede 65536 tomme rader, det er ikke noe man legger til. Case closed.

 

Beste hilsen Harald

[MsFoster]

Case closed, dvs, du gidder ikke prøve mer?

 

Daså, takk for at du prøvde. Og jo, det skal legges til, ettersom det skal være en makro som også legges til ved sidenav.

[Harald Staff]

Det er en tålmodighetsprøve å måtte hale nødvendige opplysninger ut av den man forsøker å hjelpe, så ja, jeg gir meg her. Mine neste spørsmål her ville ellers være når skal denne nye knappen skal legges til, hvorfor du ikke oppretter et unikt kundenummer samtidig og hvorfor du ikke skriver inn og redigerer ved hjelp av et dataskjema istedet, f.eks Excels innebyggede som du finner i Data-Skjema-menyen. Uansett er de ikke meningsfylt å skrive ingenting til allerede tomme celler, så du kan korte litt i koden din.

 

Beste hilsen Harald