27. september 2018 - 15:59Der er
4 kommentarer og 2 løsninger
Copy af sheet inklusiv formler
Hej,
Jeg får ikke mine formler flyttet med når jeg trykker på macro knap, de aktuelle tal og tekst flytter over.
Eks. A4:A42 Tekst (flytter over som det skal) B4:B42 Tider (00:00:00 flytter over som det skal) C4:C42 Formler (Giver Sand/Falsk ud fra tid, Det er Sand/Falsk der flyttes og ikke formlerne)
Formoder det er en "lille" tilretning i vbaén, håber der er en der lige kan sige hvor det er den er gal.... ------------------------------------------------------------------------------------------------------ Option Explicit Dim ws As Worksheet, wsCopySheet As Worksheet Dim rArea As Range, rLastcell As Range
Sub Button5() Copysheet ("Calculations10") End Sub
Private Sub Copysheet(sh As String) Set ws = Sheets("Calculations") Set wsCopySheet = Sheets(sh) Set rLastcell = Range(wsCopySheet.Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Address) Set rArea = wsCopySheet.Range("A1", rLastcell.Address) ws.Range("A:XX").ClearContents ws.Range("A1", rLastcell.Address).Value = rArea.Value End Sub ------------------------------------------------------------------------------------------------------
Så væltede hele Calculations, nu skriver den Underlige tinge i C (nogle af de ting jeg har stående i A3:A42) I D3:D42 er der nu komma tal (der var ikke noget der før) I E3:E42 Sand/Falsk
Min H og I er tomme og J og K er med komma tal (Bruger H/I til farve skift til uret)
Min S er tomme (Tider) og T med formler er også væk....
Den sidste var nemmere at klare med Betinget Formatering, En farve til det hele og så Highlight ved ordet pause.
Synes godt om
1 synes godt om dette
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.