Public Sub Slet4() Dim RW As Long, I As Long RW = Range("A65536").End(xlUp).Row For I = 3 To RW Cells(I, "A") = Right(Cells(I, "A"), Len(Cells(I, "A")) - 4) Next End Sub
Ok prøvede lige det kan man jo ikke lige da den satdig slette fra ark 1 Kan man ikke angive de tre ark hvorfra der skal slettes? Og så slette på alle 3 ark på en gang ved at trykke på knappen på ark1 hvor jeg har lagt en knap tilknyttet makroen. I øvrigt en perfekt makro ;O)
Men det kan også bare være man skal lægge makroen på de tre ark og så bare en knap på hver ark. Det tror jeg bliver løsningen.
Ok men det fik jeg den nu ikke til. Makroen lagde jeg på ark 1. Det var måske forkert. Selv om jeg trykkede på kanppen på ark2 ja så slettede den yderligere 4 tegn på ark 1
Public Sub Slet4() Dim RW As Long, I As Long RW = ActiveSheet.Range("A65536").End(xlUp).Row For I = 3 To RW ActiveSheet.Cells(I, "A") = Right(ActiveSheet.Cells(I, "A"), Len(ActiveSheet.Cells(I, "A")) - 4) Next End Sub
Ahhhh - troede jeg skulle lægge koden et eller andet centralt sted. Tak for hjælpen Kabbak.
LN
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
