http://www.megaupload.com/?d=KA59XD9Yquote:Op dinsdag 13 april 2010 09:03 schreef DaFan het volgende:
znarch: Ik kan niet echt verder voor ik wat data zie, want het wordt niet veel duidelijker ... sorry
1 2 | "Waarde column 1","Waarde column 2","Waarde column 3","Waarde column 4" |
1 2 | Waarde Column 1;Waarde Column 2;Waarde Column 3;Waarde Column 4;;;;;;;; |
Kon het maar...quote:Op donderdag 15 april 2010 10:59 schreef Deetch het volgende:
dat kan met conditional formattin. Dit zit onder je celformat menu.
Vul dan als formule in: <>"" en dan de celkleur aangeven.
Ik zit vast verkeerdquote:Op donderdag 15 april 2010 10:59 schreef Deetch het volgende:
dat kan met conditional formattin. Dit zit onder je celformat menu.
Vul dan als formule in: <>"" en dan de celkleur aangeven.
1 |
Meen je niet Haha wat dan?quote:Op donderdag 15 april 2010 11:18 schreef DaFan het volgende:
Znarch; ik heb even gekeken maar ik begrijp het nog niet
Probeer dit eens:quote:Op donderdag 15 april 2010 13:35 schreef Stansfield het volgende:
Ik heb een hele reeks met in kolom A data en in kolom c en d verdere info. Nu wil ik in kolom b graag en ja als de datum in kolom a groter is dan 31-1-10 en een nee als de datum in kolom A kleiner of gelijk aan 31-1-10 is. Hoe krijg ik dat voor elkaar?
gebruik excel 2007 NL
Klopt, alleen je moet wel aanhalingstekens zetten:quote:Op donderdag 15 april 2010 13:47 schreef Stansfield het volgende:
En wat is dat precies in het nederlands?
=ALS(A1>datumwaarde("31-1-2010");Ja;Nee)
zoiets?
Jep,quote:Op donderdag 15 april 2010 13:47 schreef Stansfield het volgende:
En wat is dat precies in het nederlands?
=ALS(A1>datumwaarde("31-1-2010");Ja;Nee)
zoiets?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Range("A1").Select blanks = 0 For i = 0 To 25000 If ActiveCell.Offset(i, 0).Value = "" Then blanks = blanks + 1 If blanks > 5 Then Exit Sub If ActiveCell.Offset(i, 4).Value = "31/12/9999" Then ActiveCell.Offset(i, 0).EntireRow.Delete i = i - 1 End If If ActiveCell.Offset(i, 0).Value = "" Then blanks = blanks + 1 If blanks > 5 Then Exit Sub MsgBox i & " " & blanks Next i End Sub |
De onderste is een CSV (en dat is punt comma seperated).quote:Op dinsdag 13 april 2010 19:17 schreef Superheld het volgende:
Nog een laatste keer proberen op de nieuwe pagina:
Ik moet een excel file op de volgende manier exporteren naar CSV:
[ code verwijderd ]
Maar mijn excel doet het zo:
[ code verwijderd ]
Ik heb al een aanpassing gedaan aan de separator via taal opties (lokaal) en in de opties van Excel maar helaas zonder succes. Windows 7, MS Office 2007. Iemand hier een oplossing voor?
Hier alvast een beginquote:Op donderdag 15 april 2010 13:36 schreef sanger het volgende:
Ik loop hier al een hele tijd naar te zoeken op Google, maar weet niet echtg waar ik naar moet zoeken....
Ik heb een tabel met allerlei data. In deze tabel staat in kolom A een klantnummer. Nu is het een tabel van ruim 20.000 regels dus wil ik de gegevens splitsen. De volgende dingen zou ik automatisch willen zien gebeuren:Selectie maken zodat alle regels die in kolom E niet eindigen op 31.12.9999 weggegooid worden Van het restant alleen de regels overhouden die in de combinatie van kolommen F en G niet ouder zijn dan 26 weken na de huidige week. In kolom F staat een weeknummer en in kolom G staat een jaartal. Per klantnummer een apart tabblad
Iemand een idee of ik dat kan automatiseren?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | LastRow = Range("A65536").End(xlUp).Row For i = 2 To LastRow LastWTFNummer = Right(Range("E" & i).Value, 10) If LastWTFNummer <> "31.12.9999" Then Rows.EntireRow.Select MsgBox "Deze regel wordt verwijderd!!" 'Rows.EntireRow.Select End If Next i LastRow = Range("A65536").End(xlUp).Row For i = 2 To LastRow If (Range("F" & i).Value > (IsoWeekNumber(Now()) + 26)) And Range("G" & i).Value = Year(Now()) Then Rows.EntireRow.Select MsgBox "Deze regel wordt verwijderd!!" 'Rows.EntireRow.Select End If Next i End Sub Public Function IsoWeekNumber(d1 As Date) As Integer 'Attributed to Daniel Maher Dim d2 As Long d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3) IsoWeekNumber = Int((d1 - d2 + Weekday(d2) + 5) / 7) End Function |
1 2 3 | MsgBox "Deze regel wordt verwijderd!!" 'Rows.EntireRow.Select |
1 |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |