-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Datum en tijd kopieren
- Onderwerp starter sloekie
- Startdatum
- Status
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.991
- Office versie
- Bèta Insider Office 365
Even een kunstje Sloekie.
De resize in de code begint vanaf kolom G.
Zet in cel G1 een 1, en in H1 een 2, selecteer beide cellen en pak het bij de vulgreep en sleep het naar rechts tot GN.
Nu staat er in GN1 het getal 190.
Ik kijk morgenavond verder (nu slapen).
De resize in de code begint vanaf kolom G.
Zet in cel G1 een 1, en in H1 een 2, selecteer beide cellen en pak het bij de vulgreep en sleep het naar rechts tot GN.
Nu staat er in GN1 het getal 190.
Ik kijk morgenavond verder (nu slapen).
Harry
ik heb een probleem met die datum als ik boven 12:00 uur s'middags kom dan zet hij hem op een andere dag dus als hij 24-04-2011 12:01 heeft dan zet hij het op 25-04-2011 12:01 en niet op 24-04-2011 12:01 hoe kan dat weet jij dat.
Sloekie(Adrie)
ik heb een probleem met die datum als ik boven 12:00 uur s'middags kom dan zet hij hem op een andere dag dus als hij 24-04-2011 12:01 heeft dan zet hij het op 25-04-2011 12:01 en niet op 24-04-2011 12:01 hoe kan dat weet jij dat.
Sloekie(Adrie)
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.991
- Office versie
- Bèta Insider Office 365
Bv.
Code:
With Sheets("bladnaam")
Code:
With sheets("bladnaam").Columns("A:K").AutoFitGoedenavond Harry
Het werkt
heb je nog kunnen kijken hoe het zit met die tijden want moet dat geen 24 uurs zijn ipv 12 uurs ik heb al eens gekeken op de forum en het net maar geen oplossing gevonden dat hielp kreeg steeds een foutmelding
GR. Adrie (Sloekie)
Het werkt
heb je nog kunnen kijken hoe het zit met die tijden want moet dat geen 24 uurs zijn ipv 12 uurs ik heb al eens gekeken op de forum en het net maar geen oplossing gevonden dat hielp kreeg steeds een foutmelding
GR. Adrie (Sloekie)
Hallo Harry
de datum in kolom A zijn productie datums en die van Kolom H zijn behandel datums.
de bedoeling is dus dat die datum in kolom H gekopieerd wordt, om zo een soort planning te maken voor de behandeling via deze datum (uit Kolom H)
ik hoop dat je begrijpt wat ik bedoel.
Gr Adrie(Sloekie)
de datum in kolom A zijn productie datums en die van Kolom H zijn behandel datums.
de bedoeling is dus dat die datum in kolom H gekopieerd wordt, om zo een soort planning te maken voor de behandeling via deze datum (uit Kolom H)
ik hoop dat je begrijpt wat ik bedoel.
Gr Adrie(Sloekie)
ik heb een foutmelding in de macro gisteren was alles nog goed ik start hem vandaag weer op en hij gaf foutmelding: door toepassing of door object gedefinieerde fout dit geeft hij in geel aan: .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 6).Value _
= ActiveCell.Resize(, 6).Value 'kopieer de ganse rij naar eerstvolgende lege rij in blad4.
Hoe kan dit
Sloekie(Adrie)
= ActiveCell.Resize(, 6).Value 'kopieer de ganse rij naar eerstvolgende lege rij in blad4.
Hoe kan dit
Sloekie(Adrie)
En er komt nog een foutmelding: fout 1004 tijdens uitvoering : eigenschap match van klasse worksheetfunction kan niet worden opgehaald
dit staat er in geel:
kol = Application.WorksheetFunction.Match(CLng(DateValue(ActiveCell.Offset(, 7))), Sheets("voorraad").Rows(4), 0)
wie heeft hiervoor een oplossing voor?
want ik kom er niet meer uit.
gr. Adrie (Sloekie)
dit staat er in geel:
kol = Application.WorksheetFunction.Match(CLng(DateValue(ActiveCell.Offset(, 7))), Sheets("voorraad").Rows(4), 0)
wie heeft hiervoor een oplossing voor?
want ik kom er niet meer uit.
gr. Adrie (Sloekie)
Goedenavond Harry
ik heb hem gekopieerd naar een andere bestand daar heb de code aangepast naar de blad 1 door behandelschema en blad 2 door voorraad en hij geeft een foutmelding moet ik de rijen nog aanpassen want bij voorraad begint het met rij 3
dit is wat er in geel staat:.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 6).Value _
= ActiveCell.Resize(, 6).Value 'kopieer de ganse rij naar eerstvolgende lege rij in blad4
Gr. Adrie
ik heb hem gekopieerd naar een andere bestand daar heb de code aangepast naar de blad 1 door behandelschema en blad 2 door voorraad en hij geeft een foutmelding moet ik de rijen nog aanpassen want bij voorraad begint het met rij 3
dit is wat er in geel staat:.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 6).Value _
= ActiveCell.Resize(, 6).Value 'kopieer de ganse rij naar eerstvolgende lege rij in blad4
Gr. Adrie
Hallo Harry
ik heb het hele bestand wat ik had opnieuw gemaakt en de macro's er opnieuw ingezet en nu doet hij het prima tot nu toe ik heb hem wel opgeslagen als compabiliteitsmodus want ik heb zelf 2007 o ja heb je nog gekeken of het per kolom kon die datum
gr Adrie
ik heb het hele bestand wat ik had opnieuw gemaakt en de macro's er opnieuw ingezet en nu doet hij het prima tot nu toe ik heb hem wel opgeslagen als compabiliteitsmodus want ik heb zelf 2007 o ja heb je nog gekeken of het per kolom kon die datum
gr Adrie
- Status
