VBA kode

Måske du kan bruge noget af dette til at komme igang :)


Sub Opsummering()


For o = 1 To Sheets.Count
    Sheets(o).Select
   
    If Not ActiveSheet.Name = "Opsummering" Then
        If Not ActiveSheet.Name = "Standard ark" Then
            Afdeling = Range("C3").Value
            Data1 = Range("J2").Value
            Data2 = Range("K2").Value
        Sheets("Opsummering").Select
        Range("A4").Select
       
       
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1, 0).Select
        Wend
        ActiveCell.Value = Afdeling
        ActiveCell.Offset(0, 1).Value = Data1
        ActiveCell.Offset(0, 2).Value = Data2
        End If
    End If

Next o

Sheets("Opsummering").Select

End Sub

Hej IT-GuFFe
Når jeg indsætter koden i arket "Opsummering" og afspiller makroen, bliver cellerne A4,A5,A6 udfyldt med teksten "Data2", der skulle have stået 555555,666666,777777. Cellerne B4,B5,B6 & C4,C5,C6 bliver ikke udfyldt.

Du kan heller ikke få den til det, hvis du bruger dit eget eksempel? :) Det er den jeg har brugt..

Hej IT-GuFFe

Jeg tror vi har misforstået hinanden, min oploadet fil indeholder ingen vba kode, den er blot et eksempel på hvordan den færdige fil kunne se ud.

Det er jeg helt med på :)

Men den VBA kode jeg har skrevet længere oppe, virker fint når jeg kører den i dit eksempel... Derfor det lyder lidt mærkeligt.

Hej IT-GuFFe

Det er mig der er en skovl, da jeg lagde koden ind fik jeg ikke "Sub Opsummering()" med. Undskyld bøvlet og mange tak for hjælpen, smider du et svar.

Håber du kan bruge det til noget :-)