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
Vi ser på, hvorfor advokatfirmaer er så væsentlige mål for cyberangreb og hvilke foranstaltninger de kan træffe for at beskytte sig mod dem.
4. marts 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.
