01. august 2014 - 00:54Der er
2 kommentarer og 1 løsning
Macro hvis dato så kopirer data
Hej Eksperter
Macro koden skal gøre, Er at den skal finde start dato hvis vi har start dato skal den finde personen i ark1 samt kopirer "grund" til ark1. Den skal selv vide hvornår slut er.
Weekender skal kunne fra vælges i koden om de skal tælles med.
Skjulte data. ID - Navn - Start Dato - Slut Dato - Grund 01 - Jan - 20-11-2014 - 20-12-2014 - Ferie 02 - Kurt - 10-01-2015 - 10-01-2015 - Fri 03 - Mia - 10-01-2015 - 25-01-2015 - Ferie Osv.
Efterfølgende skal denne kode placeres. Så der ryddes op i rækkerne.
Dim SD As String If SD = Range("B6") > 90 Then Range("B6").Value = "" Range("C6").Value = "" Range("D6").Value = "" Range("E6").Value = "" End If
På IT-DAY fejrer vi teknologien, når Danmarks IT virksomheder kommer til Odense torsdag d. 4. april.
28. februar 2024
Slettet bruger
03. august 2014 - 17:46#1
Indtil videre har jeg denne kode. Koden kan ikke finde Slut datoen for event, og søger ikke efter medarbejder som har det event, Koden søger ikke i hele "databasen." ingen der har et bud?
Sub HideKalender() 'Går til næste uge Range("P2").Value = Range("P2").Value + 7
'B2:F2 = Ugeplan - Mandag til Søndag 'K3 = Start dato på event fks. 04-08-2014 If Range("B2").Value = Range("K3").Value _ Or Range("C2").Value = Range("K3").Value _ Or Range("D2").Value = Range("K3").Value _ Or Range("E2").Value = Range("K3").Value _ Or Range("F2").Value = Range("K3").Value Then
If Range("M3").Value = "Syg" Then Range("b3:F3").Value = ("S") If Range("M3").Value = "Ferie" Then Range("b3:F3").Value = ("F") If Range("M3").Value = "Ferie Fridag" Then Range("b3:F3").Value = ("FF") If Range("M3").Value = "Barn Syg" Then Range("b3:F3").Value = ("BS") If Range("M3").Value = "Kursus" Then Range("b3:F3").Value = ("K") If Range("M3").Value = "Betalt Fri" Then Range("b3:F3").Value = ("BF") If Range("M3").Value = "Orlov" Then Range("b3:F3").Value = ("O") End If
'L3 = Slut dato på event 'J3:M5000 = Database (Skjult) If Range("D13").Value < 90 Then Range("J13").Value = "" Range("K13").Value = "" Range("L13").Value = "" Range("M13").Value = "" End If End Sub
Synes godt om
Slettet bruger
03. august 2014 - 18:02#2
Fejl i den første postede kode.
Sub HideKalender() 'Går til næste uge Range("P2").Value = Range("P2").Value + 7
'B2:F2 = Ugeplan - Mandag til Søndag 'K3 = Start dato på event fks. 04-08-2014 If Range("B2").Value = Range("K3").Value _ Or Range("C2").Value = Range("K3").Value _ Or Range("D2").Value = Range("K3").Value _ Or Range("E2").Value = Range("K3").Value _ Or Range("F2").Value = Range("K3").Value Then
If Range("M3").Value = "Syg" Then Range("b3:F3").Value = ("S") If Range("M3").Value = "Ferie" Then Range("b3:F3").Value = ("F") If Range("M3").Value = "Ferie Fridag" Then Range("b3:F3").Value = ("FF") If Range("M3").Value = "Barn Syg" Then Range("b3:F3").Value = ("BS") If Range("M3").Value = "Kursus" Then Range("b3:F3").Value = ("K") If Range("M3").Value = "Betalt Fri" Then Range("b3:F3").Value = ("BF") If Range("M3").Value = "Orlov" Then Range("b3:F3").Value = ("O") End If
'L3 = Slut dato på event 'J3:M5000 = Database (Skjult) If Range("D3").Value < 90 Then Range("J3").Value = "" Range("K3").Value = "" Range("L3").Value = "" Range("M3").Value = "" End If End Sub
Synes godt om
Slettet bruger
22. januar 2015 - 19:42#3
Lukker, men ej løst.
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.