Notifikationer

Markér alle som læst Log ud

Slettet bruger

01. august 2014 - 00:54 Der 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

nogle der har et bud?
tak på forhånd.

Synes godt om

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 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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Stempel ur start og stop Af lurup i Excel	1	23/03/202613:24	23/03/202621:06
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel	4	04/03/202617:11	06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel	3	19/02/202614:23	20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel	2	18/02/202620:41	19/02/202611:30

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS