Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?quote:Op donderdag 19 februari 2009 17:21 schreef Blik het volgende:
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
Ik weet er ook niks vanquote:foto Op donderdag 19 februari 2009 23:13 schreef DaFan het volgende:
Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
Ik bedoelde je laatste regelquote:
Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen meequote:Op donderdag 19 februari 2009 23:50 schreef DaFan het volgende:
Misschien probeer ik het zelfs wel een keerHeb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
1 |
achter het ' staat een opmerking die uitlegt wat die regel doetquote:Op vrijdag 20 februari 2009 11:20 schreef Errrwin het volgende:
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la
[ code verwijderd ]
Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.
Snappu?
Hoe doe ik dat? :)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen Range("a2").Select 'cel waar eerste gesorteerde rij komt Sheets("Sheet1").Select 'sheet waar ruwe data staat Range("C1").Select 'beginnen bovenaan kolom c For i = 1 To 100 'gaat eerste 100 regels bij langs If ActiveCell.Value = 401 Then 'te zoeken waarde ActiveCell.EntireRow.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Select End If Sheets("Sheet1").Select Range("C" & i).Select 'volgende cel in kolom c selecteren Next i End Sub |
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.quote:Op vrijdag 20 februari 2009 13:52 schreef Deetch het volgende:
[..]
achter het ' staat een opmerking die uitlegt wat die regel doet
[ code verwijderd ]
staat de 69930 altijd in kolom E?quote:Op vrijdag 20 februari 2009 14:34 schreef Errrwin het volgende:
[..]
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.
Kan je daar wat van brouwen, denk je?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen Range("a2").Select 'cel waar eerste gesorteerde rij komt Sheets("Sheet1").Select 'sheet waar ruwe data staat Range("C1").Select 'beginnen bovenaan kolom c For i = 1 To 5000 'gaat eerste 5000 regels bij langs If ActiveCell.Value = 401 And ActiveCell.Offset(0, 2).Value = 69930 Then 'te zoeken waarde ActiveCell.EntireRow.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Select End If Sheets("Sheet1").Select Range("C" & i).Select 'volgende cel in kolom c selecteren Next i Application.CutCopyMode = False 'deseleteerd de laatste gekopieerde regel (stippellijntje weg) End Sub |
1 2 | Range("C" & i).Select 'volgende cel in kolom c selecteren |
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 | Dim i,j As Integer Sheets("Blad1").Select i = 0 j = 0 Do i = i + 1 If Cells(i, 3).Value = "401" And Cells(i, 5).Value = "69930" Then j = j + 1 Cells(i, 4).EntireRow.Copy Sheets("Blad2").Activate ActiveSheet.Cells(j, 1).Select ActiveSheet.Paste Sheets("Blad1").Activate End If Loop Until Cells(i, 3).Value = "" Range("A1").Select Application.CutCopyMode = False End Sub |
quote:Op maandag 23 februari 2009 12:14 schreef Jaheur het volgende:
Ik heb de macro, maar hoe ik van een formule een enkele getal maken in de macro.
Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
1 |
1 |
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:quote:
1 2 3 4 5 6 7 8 9 10 11 12 | i = 0 Do i = i + 1 If Cells(i, 3).Value < Cells(i + 1, 2).value Then Cells(i, 3).Value = Cells(i + 1, 3).Value Cells(i + 1, 1).EntireRow.Delete i = i - 1 End If Loop Until Cells(i + 1, 1).Value = "" End Sub |
Thanksquote:Op maandag 23 februari 2009 13:07 schreef Metal_Jag het volgende:
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:
[ code verwijderd ]
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?quote:Op maandag 23 februari 2009 14:45 schreef Stansfield het volgende:
Even een vraag over het printen van excel. Wanneer ik 0 waarden en foute formulles als deel/0 niet wil laten zien wanneer ik print hoe regel ik dat in excel 2007 de nederlandse versie.
Dat is niet handig want het beslaat een heleboel formulies die er al staan maar de info is nog niet gevuld. Elke maand komt er dan een stukje bij. Dus dan blijf ik aan de gang.quote:Op maandag 23 februari 2009 15:35 schreef DaviniaHR het volgende:
[..]
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?
(speaking of quick and dirty)
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |
Dat begrijpen we, maar is wel erg jammer. Je kunt FOK! namelijk wel gratis LEZEN, maar we kunnen FOK! niet gratis MAKEN. De inkomsten van de advertenties zorgen ervoor dat we de kosten van de site kunnen dragen zodat je ook morgen FOK! nog kunt bezoeken.
Zou je willen overwegen om voor FOK! een uitzondering te maken in je adblocker (of andere middelen die onze ads blokkeren)? Je krijgt deze melding dan nooit meer te zien.
Ja, ik wil fok.nl whitelisten, laat me zien hoe
Ik neem liever een premium account zodat ik geen advertenties hoef te zien (je moet eerst inloggen)
Ja, breng me naar de shop