Avatar billede degnens Mester
19. december 2005 - 22:30 Der er 2 kommentarer og
1 løsning

Makro, der indsætter tid det ene eller det andet sted

Hej eksperter.

Jeg har en makro, der når jeg trykker på en knap, går til en række defineret ved dags dato, og her indsætter det aktuelle klokkeslet i kolonne G. Jeg ønsker makroen udvidet, så den, i tilfælde af der allerede står en værdi i kolonne H, i stedet indsætter klokkeslettet i kolonne I. Makroen ser pt. således ud:

Sub Indsætstart()

Application.EnableEvents = False

Dim v As Variant
Dim c As Range
Dim lRow As Long
  With Sheets("Timeseddel - sagsregnskab").Range("A12:A409")
    v = Format(Date, "dd.mm.yy")
      Set c = .Find(v, LookIn:=xlValues)
      If Not c Is Nothing Then
        lRow = c.Row
      Sheets("Timeseddel - sagsregnskab").Select
    Range("G" & lRow).Select
    ActiveCell.FormulaR1C1 = Time
    Sheets("Detaljeregistrering").Select
    Range("D11").Select
    Application.CutCopyMode = False
   
            Else
        MsgBox "Dato ikke fundet"
      End If
  End With
Application.EnableEvents = True
End Sub
Avatar billede sjap Praktikant
19. december 2005 - 22:41 #1
Udskift linierne

    Range("G" & lRow).Select
    ActiveCell.FormulaR1C1 = Time

med

    If IsEmpty(Range("H" & lrow)) Then
        Range("G" & lrow).Select
    Else
        Range("I" & lrow).Select
    End If
    ActiveCell.FormulaR1C1 = Time
Avatar billede degnens Mester
20. december 2005 - 04:04 #2
Igen et perfekt og præcist svar fra sjap. Tusind tak.
Avatar billede sjap Praktikant
20. december 2005 - 11:47 #3
:0)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester