Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketKopiering og fjerning efter udløbsdato
 Besvar Besvar Side  12>
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Emne: Kopiering og fjerning efter udløbsdato
    Sendt: 01.Nov.2010 kl. 13:31
Så virker det igen :-) jeg tror jeg lader mit testark stå og køre alene i en måneds tid inden jeg sætter koden over i det rigtige ark så jeg sikker på der ikke sker fejl. :-)
 
Tak for hjælpen
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Okt.2010 kl. 13:20
Super, du vender bare tilbage hvis den stadig fejler.
 
God weekend!
 
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 29.Okt.2010 kl. 13:07
Hmm må jeg ha kigget på i næste uge, tak for hjælpen endnu en gangSmile
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Okt.2010 kl. 11:26
Hej Knud,
 
Det kunne godt virke som om navngivningen af dine faner er forkerte øverst i koden.
 
AktiveArkNavn = "Aktive"
PassiveArkNavn = "Passive"
 
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 29.Okt.2010 kl. 09:01
/uploads/99/Screendump_debug.doc" target="_blank">uploads/99/Screendump_debug.doc
Hej Allan
 
Kan jeg få dig til at hjælpe mig igen? koden er gået i stykker? den virkede i et par dage, men her til morgen skete dette?Cry
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 28.Okt.2010 kl. 10:14
Super duper.
Det vigtigste var at det nu virker Thumbs Up
 
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 27.Okt.2010 kl. 14:09
Det var ikke dig, jeg valgte selv at skrive den ind i "hånd" for at få lidt lidt forståelse for koden :-) jeg glemte selv linieskriftet, eller jeg troede faktisk at det var en fejl af det var derLOL
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 27.Okt.2010 kl. 13:49
Super, tak for din tilbagemelding Wink
 
Jeg tror faktisk at det var min skyld, fordi troede jeg havde opdaget noget smart her i forummet.
 
Jeg skrev koden i en fin grå boks som sådan ud:


Dette er en test


Dette er en test ny linje
 
Men når man kopierer teksten forsvinder linjeskiftene..... ikke så godt når det er kode Embarrassed
 
For eftertiden skriver jeg koden med blå skrift, sådan:
 
Dette er en test
Dette er en test ny linje
 
Jeg håber det løser problemet fremover.
 
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 27.Okt.2010 kl. 13:44
JAAAAAAAAAA nu virker det, tak tusind tak allan!!!
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 27.Okt.2010 kl. 12:48

Du mangler et linjeskift.

Linjen:
If dato.Value <> "-" And dato.Value < Sheets(AktiveArkNavn).Range(UdlDato).Value Then dato.EntireRow.Cut
Skal se således ud:
If dato.Value <> "-" And dato.Value < Sheets(AktiveArkNavn).Range(UdlDato).Value Then
        dato.EntireRow.Cut
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 27.Okt.2010 kl. 10:01
/uploads/99/Screendump_End_If.doc" target="_blank">uploads/99/Screendump_End_If.docJeg har problemer med End If, kan du se hvad jeg gør forkert? jeg har lavet det Screendump til dig.
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 26.Okt.2010 kl. 15:43

Lad os nu se, vi krydser fingre Big smile
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 26.Okt.2010 kl. 15:38
KÆÆÆÆÆFT du er genial Allan, jeg prøver den af i morgen, men mon ikke den virker :-)
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 26.Okt.2010 kl. 11:38
Hej igen,
 
Ja, problemet er jo bare at koden sletter de tomme datoer sidst i koden, men jeg kan lave en workaround som fixer problemet.
Alle tomme datoer, bliver midlertidigt lavet om til "-" og sidst i koden lavet som til tomme datoer igen Tongue
Prøv lige at se om det ikke virker for dig.
 
Private Sub Workbook_Open()
'*** 26-10-2010 - Excel-regneark.dk ***
'**************************************
DatoRange = "M4:M1504"
UdlDato = "G1"
AktiveArkNavn = "Sagsregisrering 2010"
PassiveArkNavn = "Afsluttede sager 2010"
'**************************************
Application.ScreenUpdating = False

For Each dato In Sheets(AktiveArkNavn).Range(DatoRange).Cells
    If dato.Value = "" Then dato.Value = "-"
    If dato.Value <> "-" And dato.Value < Sheets(AktiveArkNavn).Range(UdlDato).Value Then
        dato.EntireRow.Cut
        Sheets(PassiveArkNavn).Range("A2").Insert Shift:=xlDown
    End If
Next dato

Sheets(AktiveArkNavn).Range(DatoRange).Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
 
For Each tomdato In Sheets(AktiveArkNavn).Range(DatoRange).Cells
    If tomdato.Value = "-" Then tomdato.Value = ""
Next tomdato
 
Sheets(AktiveArkNavn).Range("A1").Activate
End Sub
 
//Allan
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 26.Okt.2010 kl. 11:18
Kan man ændre ovenstående kode så den ikke sletter dem der ikke har en udløbsdato og stadig fjerner dem der har overskredet udløbsdatoen?
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 25.Okt.2010 kl. 10:20
Igen TUSIND tak for hjælpen, nu opdagede jeg noget da jeg brugte din kode, hvis jeg undlader at sætte en udløbsdato på nogen så bliver de automatisk slettet og det skal de ikke. Det er ikke altid jeg kan sætte slutdato på og dem uden dato på skal den bare springe over. Kan man det?Smile
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 23.Okt.2010 kl. 10:46
Hej Knud,
 
Ups, det er jo fordi der ikke er nogle datoer som skal flyttes, så fejler koden.
Denne kode skulle tage højde for det Big smile
 
 
Private Sub Workbook_Open()
'*** 23-10-2010 - Excel-regneark.dk ***
'**************************************
DatoRange = "D2:D100"               '**
UdlDato = "G1"                      '**
AktiveArkNavn = "Aktive"            '**
PassiveArkNavn = "Passive"          '**
'**************************************
Application.ScreenUpdating = False
For Each dato In Sheets(AktiveArkNavn).Range(DatoRange).Cells
    If dato <> "" And dato.Value < Sheets(AktiveArkNavn).Range(UdlDato).Value Then
        dato.EntireRow.Cut
        Sheets(PassiveArkNavn).Range("A2").Insert Shift:=xlDown
    End If
Next dato
Sheets(AktiveArkNavn).Range(DatoRange).Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
Sheets(AktiveArkNavn).Range("A1").Activate
End Sub
 
 
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 22.Okt.2010 kl. 11:54
/uploads/99/Screendump.doc" target="_blank">uploads/99/Screendump.doc
 
Nu holdt det op med at virke???? jeg har taget et screendump, kan du hjælpe Allan? :-(
Til top
Knud Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Okt.2010
Land: Danmark
Status: Offline
Point: 60 		Direkte link til dette indlæg Sendt: 22.Okt.2010 kl. 11:05
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA nu virker det :-P FANTASTISK TUSIND TUSIND TUSIND TAK!!!!!!!!!, men kan jeg lave det så den selv sætter dagsdato i feltet hvor jeg skriver udløbsdatoen?
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 22.Okt.2010 kl. 10:31
Hej Knud,
 
Der kan være fejlmuligheder, lad os prøve et par stykker:
 
  • Har du husket at skrive din udløbsdato i G1 ? (UdlDato)
  • Har du lagt koden i THISWORKBOOK
  • Koden startes ved at åbne projektmappen, har du gemt og derefter åbnet filen igen?

For at teste koden mens arket er åbent, kan du gå ind i koden, klikke med musen midt i koden og trykke på F5, så startes koden igen.

Virker det nu?
 
//Allan 
 
Til top
 Besvar Besvar Side  12>

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk