[Excel] Het grote Excel vragen topic #18

maandag 15 februari 2010 @ 13:11:10 #256

Deetch

WTF?

quote:
Op maandag 15 februari 2010 12:07 schreef qu63 het volgende:

[..]

Werkt, deels..

Ik krijg alleen een lege regel na de eerste 20%, daarna niet meer

-Edit-

Whoops, stukje code vergeten aan te passen! Nu werkt ie wel goed!

Ik dacht al

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

maandag 15 februari 2010 @ 13:13:24 #257

qu63

..de tijd drinkt..

quote:
Op maandag 15 februari 2010 13:11 schreef Deetch het volgende:

[..]

Ik dacht al

Het moest kolom B zijn, en was "ActiveCell.Offset(0, 2).Select" vergeten te veranderen naar "ActiveCell.Offset(0, 1).Select"

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 09:17:36 #258

ZoeteHoningDrop

Ik heb ook een vraag, maar ben een echte excel n00b

Ik heb in tabblad 1 allemaal mensen staan die ooit hebben aangegeven wel een programma te willen volgen.
In tabblad 2 heb ik de mensen staan die ook daadwerkelijk een programma hebben gevolgd. Nu wil ik van tabblad 1 weten welke mensen in die lijst (nog) niet een programma hebben gevolgd.. Dus ik moet iets doen met de mensen die op tabblad 2 staan en vergelijken met tabblad 1 en op een of andere manier moet daar een lijst uitkomen met mensen die nog geen programma hebben gevolgd.
hoe doe ik dit zonder eindeloos de zoekfunctie te gebruiken want het is nogal een lange lijst.

/n00b

Werk hier met excel 2003.

dinsdag 16 februari 2010 @ 10:00:32 #259

Attitude

Hai allemaal

Klein vraagje, ik ben bezig om een prijslijst voor materialen op te stellen.

De prijzen voer ik in en dan moet het in een tabelvorm duidelijk worden.

Eerst heb ik alles getypt en daarna geselecteerd. Met behulp van ALT + F1 kreeg ik een tabel.

Maar nu , als ik nog meer materialen typ, dan krijg ik dat niet te zien in de tabel. Om toch te kunnen zien moet ik een heel nieuw tabel maken.

Mijn vraag is hoe ik dit automatisch kan laten gebeuren. Want de prijzen zijn per 2 maanden en ik heb geen zin om elke keer steeds de waarden te moeten aanpassen. Graag wil ik in 1 keer alles goed hebben en dat het automatisch lukt om de tabel uit te breiden.

Ik werk overigens met Excel 2003 in Nederlandse taal.

Graag hoor ik van jullie.

dinsdag 16 februari 2010 @ 10:14:03 #260

Twentsche_Ros

quote:
Op dinsdag 16 februari 2010 09:17 schreef ZoeteHoningDrop het volgende:
Ik heb ook een vraag, maar ben een echte excel n00b
Ik heb in tabblad 1 allemaal mensen staan die ooit hebben aangegeven wel een programma te willen volgen.
In tabblad 2 heb ik de mensen staan die ook daadwerkelijk een programma hebben gevolgd. Nu wil ik van tabblad 1 weten welke mensen in die lijst (nog) niet een programma hebben gevolgd.. Dus ik moet iets doen met de mensen die op tabblad 2 staan en vergelijken met tabblad 1 en op een of andere manier moet daar een lijst uitkomen met mensen die nog geen programma hebben gevolgd.
hoe doe ik dit zonder eindeloos de zoekfunctie te gebruiken want het is nogal een lange lijst. /n00b

Werk hier met excel 2003.

Voorwaarde is natuurlijk wel dat namen uniek zijn en in beide gevallen letterlijk identiek.

Zet in cel b1:
+1-AANTAL.ALS(Blad2!A:A;Blad1!A1)

copieer dit naar beneden.

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

dinsdag 16 februari 2010 @ 10:47:56 #261

ZoeteHoningDrop

quote:
Op dinsdag 16 februari 2010 10:14 schreef Twentsche_Ros het volgende:

[..]

Voorwaarde is natuurlijk wel dat namen uniek zijn en in beide gevallen letterlijk identiek.

Zet in cel b1:
+1-AANTAL.ALS(Blad2!A:A;Blad1!A1)

copieer dit naar beneden.

Ai, kijk..daar heb ik al een probleem. Als het goed is zijn de emailadressen wel identiek maar deze staan in kolom C.

Kan ik dan alsnog die code/formule (hoe je het ook maar noemt

) gebruiken?
En je zegt cel b1, van tab 1, 2? of in een nieuwe tab?

dinsdag 16 februari 2010 @ 11:26:55 #262

Twentsche_Ros

quote:
Op dinsdag 16 februari 2010 10:47 schreef ZoeteHoningDrop het volgende:

[..]

Ai, kijk..daar heb ik al een probleem. Als het goed is zijn de emailadressen wel identiek maar deze staan in kolom C.

Kan ik dan alsnog die code/formule (hoe je het ook maar noemt ) gebruiken?
En je zegt cel b1, van tab 1, 2? of in een nieuwe tab?

Als kolom C de entiteit is (zowel in blad 1 en 2).
Zet in cel d1:
+1-AANTAL.ALS(Blad2!c:c;Blad1!c1)

Het is belangrijk dat een database een unieke entiteit heeft en goed wordt bijgehouden.

Het is met databases net als met nagels:

Af en toe de rommel er tussen weg halen.
Kort houden.
Dan ziet het er gepolijsd uit.

Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.

dinsdag 16 februari 2010 @ 11:51:36 #263

qu63

..de tijd drinkt..

quote:
Op dinsdag 16 februari 2010 11:26 schreef Twentsche_Ros het volgende:
Het is met databases net als met nagels:

Af en toe de rommel er tussen weg halen.
Kort houden.
Dan ziet het er gepolijsd uit.

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 12:12:03 #264

qu63

..de tijd drinkt..

Ik heb nu 3 tabbladen (2007, 2008 en 2009) waarop de omzetcijfers staan van verschillende klanten. Nu wil ik o phet 4e tabblad een overzicht van alle klanten. Dit kan ik gewoon doen door te copy-pasten, maar dan heb ik dubbele waarden. Hoe kan ik dit nou het makkelijkst oplossen? Alle 3 de jaren bij elkaar zijn ruim 1000 regels..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 13:03:07 #265

DaFan

SUMPRODUCT ldo

dinsdag 16 februari 2010 @ 13:06:55 #266

qu63

..de tijd drinkt..

quote:
Op dinsdag 16 februari 2010 13:03 schreef DaFan het volgende:
SUMPRODUCT ldo

Ik moet die functie echt eens onder de knie krijgen ben ik bang

Tipje sluier enzo?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 14:18:32 #267

DaFan

Niet zonder ik je data heb gezien

En hoe je het georganiseerd wilt hebben in je 4e tab.

dinsdag 16 februari 2010 @ 14:27:00 #268

qu63

..de tijd drinkt..

quote:
Op dinsdag 16 februari 2010 14:18 schreef DaFan het volgende:
Niet zonder ik je data heb gezien
En hoe je het georganiseerd wilt hebben in je 4e tab.

Opmaak is bij alle tabbladen hetzelfde:
Kolom A is de bedrijfsnaam, kolom b is de omzet in dat jaar behaald.

Enige verschil is de lengte van de kolommen en de plek van de witte regel die iedere 20% scheidt..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 14:41:17 #269

DaFan

2007 toch?

dinsdag 16 februari 2010 @ 14:41:29 #270

qu63

..de tijd drinkt..

Stukje 2007:

1
2
3
4
5
6
7
8
9
10

Klant   Omzet excl. Btw
A    € 18.225,12
B    € 16.858,91
C    € 10.123,84
D    € 10.011,46
E    € 9.870,92

F    € 8.304,34
G    € 6.714,79
H    € 6.435,57

Stukje 2008:

1
2
3
4
5
6
7
8
9
10

Klant   Omzet excl. Btw
A    € 18.959,71
B    € 13.726,86
C    € 13.555,44
D    € 13.537,71
E    € 12.451,55

F    € 12.173,44
G    € 11.957,29
H    € 10.106,19

Stukje 2009:

1
2
3
4
5
6
7
8
9
10

Klant   Omzet excl. Btw
A    € 17.237,61
B    € 17.107,69
C    € 13.320,97
D    € 11.778,95

E    € 11.758,01
F    € 11.437,41
G    € 7.642,45
H    € 6.765,94

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 14:41:42 #271

qu63

..de tijd drinkt..

quote:
Op dinsdag 16 februari 2010 14:41 schreef DaFan het volgende:
2007 toch?

Excel 2007 NL idd

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 16 februari 2010 @ 16:46:21 #272

DaFan

Uhm kan je niet gewoon
=SOM('2007:2009'!B2)

doen?

Als je tabbladen 2007/2008/2009 heten. Moet wel elke klant op dezelfde plaats staan op alle tabbladen. Maar voor overzichtelijkheid zou dat ook eigenlijk moeten

dinsdag 16 februari 2010 @ 18:41:43 #273

qu63

..de tijd drinkt..

de kolommen zijn gesorteerd op omzet. Hoogste omzet staat bovenaan. Dus de klanten staan niet op dezelfde plek én dan komen de klanten ook nog niet op ieder tabblad voor..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 17 februari 2010 @ 12:18:24 #274

ZoeteHoningDrop

quote:
Op dinsdag 16 februari 2010 11:26 schreef Twentsche_Ros het volgende:

[..]

Als kolom C de entiteit is (zowel in blad 1 en 2).
Zet in cel d1:
+1-AANTAL.ALS(Blad2!c:c;Blad1!c1)

Het is belangrijk dat een database een unieke entiteit heeft en goed wordt bijgehouden.

Het is met databases net als met nagels:

Af en toe de rommel er tussen weg halen.
Kort houden.
Dan ziet het er gepolijsd uit.

Bedankt voor de tip, uiteindelijk werkte de formule niet (hij gaf een error aan) en heb ik het maar handmatig gedaan (niet alle e-mail adressen waren identiek opgeschreven).

woensdag 17 februari 2010 @ 14:28:41 #275

Stansfield

Ik heb een ingewikkeld excelsheet vol met verwijzigen en formules van iemand anders. Ik het hoofdexcelsheet staat alles verwezen naar een tabblad wat nov 09 heet. Nu wil ik het hoofdexcelsheet update dat hij alles dus leest uit het tabblad dec 09. Maar als ik dan ctrl H doe en de verwijzigen nov 09 vervang door de verwijzigen dec 09 krijg ik dus elke keer dat hij de verkenner opend en niet alles vervangt.

Wat is hier de oorzaak van en hoe los ik dit op?

woensdag 17 februari 2010 @ 14:52:15 #276

DaFan

qu63 ik kom er niet aan toe, te druk op werk en ben tot zaterdag weg vanaf morgen....succes.

Stansfield; macro maken die alle velden opent, de formule opslaat in een string en nov 09 vervangt?
Beter nog, vervangt door INDIRECT('Blad1!'A1)
Zodat je in Blad1 A1 de sheetnaam kan zetten en later kan aanpassen.
Dat blad kan je op zijn beurt weer hiden.

woensdag 17 februari 2010 @ 15:26:26 #277

Hi_flyer

Van alles te melden

Heeft iemand enig idee waarom ik hier een 'object required' -error krijg?

1
2
3
4
5

Private Sub edit_picture_Click()
    Dim filename
    filename = Application.GetOpenFilename("JPG (*.jpg),*.jpg")
    Me.Image1.Picture = filename
End Sub

Een gebruiker kan (na druk op een knop) hier een afbeelding kiezen die hij/zij op een userform wil zien.

_{Nee, option explicit staat uit.}

woensdag 17 februari 2010 @ 15:34:04 #278

Deetch

WTF?

Moet je dat plaatje niet ook nog eens laden?

Dus Me.Image1.Picture = Loadpicture(filename)?

Zorg er ook voor dat het gehele pad (inclusief harde schijf letter) in je filename komt. Dit kun je controleren door een regel
msgbox filename toe te voegen nadat je de filename opzoekt. (dus na regel 3)

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

woensdag 17 februari 2010 @ 15:34:32 #279

Deetch

WTF?

Ben trouwens wel benieuwd naar de gehele code, is iets dat me voor later ook wel nuttig lijkt.

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

woensdag 17 februari 2010 @ 15:47:04 #280

Hi_flyer

Van alles te melden

Tnx! That did the trick

Wil je zoiets:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

Dim username As String

Private Sub edit_picture_Click()
    Dim filename
    filename = Application.GetOpenFilename("JPG (*.jpg),*.jpg")
    MsgBox filename
    Me.Image1.Picture = LoadPicture(filename)
End Sub

Private Sub edit_textButton_Click()
    Dim temp As String
    temp = Me.Label4.Caption
    Me.Label4.Caption = InputBox("New infotext", "Edit INFO", Me.Label4.Caption)
    If Me.Label4.Caption = "" Then Me.Label4.Caption = temp
    Sheet3.Range("K3") = Me.Label4.Caption
End Sub

Private Sub Save_quantities_Click()
    Dim i As Integer
    Dim substrate, pos As String
    For i = 1 To 7
        substrate = "textbox" & i
        pos = "K" & i + 11
        Sheet3.Range(pos).Value = Me.Controls(substrate).Text
    Next i
    Me.quantitycheck
End Sub

Private Sub UserForm_Activate()
    quantitycheck
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
    'Quit_program.BackColor
End Sub

Private Sub GoToExcel_Click()
    Startform.Hide
    Sheet2.Select
    Range("A1").Select
    Resize.maximize
End Sub

Private Sub postrun_button_Click()
    Post_run_form.Show
    Startform.Hide
End Sub

Private Sub UserForm_Initialize()
    Visit_db.Visible = True
    Request_new_run.Visible = True
    Print_cover.Visible = True
    username = Application.username
    quantitycheck
    If username = "mijnnaam" Then
        Me.postrun_button.Visible = True
        Me.GoToExcel.Visible = True
        Me.Save_quantities.Visible = True
        Me.edit_textButton.Visible = True
        Me.edit_picture.Visible = True
    Else
        Me.postrun_button.Visible = False
        Me.GoToExcel.Visible = False
        Me.Save_quantities.Visible = False
        Me.edit_textButton.Visible = False
        Me.edit_picture.Visible = False
        Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False
    End If
    'Application.Wait (Now + TimeValue("0:00:02"))
    Label3.Caption = "Dear " & username
    If Application.username = "collega1" Then
        Me.BackColor = RGB(255, 128, 128)
    End If
        If Application.username = "collega2" Then
        Me.BackColor = RGB(49, 207, 169)
    End If
    Me.Label4.Caption = Sheet3.Range("K3")
End Sub

Private Sub Visit_db_Click()
    Startform.Hide
    database_form.Show
End Sub

Private Sub Quit_program_Click()
    Unload Startform
    Resize.maximize
    Application.CommandBars("Standard").FindControl(ID:=3).Enabled = True
    If Application.username = "Mijnnaam" Then
        ThisWorkbook.Saved = False
    Else
        ThisWorkbook.Saved = True

    End If
    ThisWorkbook.Close         'afsluiten van ditbestand.xls
End Sub

Private Sub Request_new_run_Click()
    Sheet2.Select
    Range("A1").Select
    Startform.Hide
    Run_request.Show
End Sub

Private Sub Print_cover_Click()
    Startform.Hide
    Sheet4.Select
    Range("C3").Select
End Sub

Sub quantitycheck()
    Dim i As Integer
    Dim substrate, pos, labelnr As String

    For i = 1 To 7
        substrate = "textbox" & i
        pos = "K" & i + 11
        labelnr = "Label" & i + 4
        Me.Controls(substrate).Text = Sheet3.Range(pos).Value
        If Sheet3.Range(pos).Value > 4 Then
            Me.Controls(labelnr).ForeColor = vbGreen
        Else
            Me.Controls(labelnr).ForeColor = vbRed
        End If
    Next i

End Sub

woensdag 17 februari 2010 @ 15:57:55 #281

Deetch

WTF?

cool

Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten

woensdag 17 februari 2010 @ 17:27:09 #282

qu63

..de tijd drinkt..

quote:
Op woensdag 17 februari 2010 14:52 schreef DaFan het volgende:
qu63 ik kom er niet aan toe, te druk op werk en ben tot zaterdag weg vanaf morgen....succes.

Thanks

Iemand anders?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 18 februari 2010 @ 09:34:58 #283

Ratjepoepe

Ik zit met een excelprobleem waar ik niet uit kom en weet überhaupt niet of er iets in te stellen is dat dit mogelijk is.

Situatie:
Ik ontvang dagelijks excelsheets met verschillende elektragegevens: meternummer, meterstand, tijd en datum.

Alleen per meter staat het in 1 cel, dus alle gegevens achter elkaar, zoals dit:

CS_36186654,2010/02/18 00:01,1,15.013,1

Ik wil dit graag automatisch opgesplitst hebben zodat nummer, datum en stand in een aparte cel worden weergegeven.

Is dit mogelijk, want ik kom er niet uit?

"Sometimes you eat the bear, and sometimes the bear eats you."

donderdag 18 februari 2010 @ 10:04:17 #284

Stansfield

Je zou met de functie links of rechts wat kunnen doen. Dan kun je dus het aantal tekens vanaf links of vanaf rechts selecteren die je in een ander veld wilt zetten. Maar echt ideaal is dat niet denk ik.

donderdag 18 februari 2010 @ 11:55:57 #285

DaFan

DAta -> Tekst naar kolommen -> Gescheiden door -> en dan komma ingeven.

donderdag 18 februari 2010 @ 12:02:36 #286

Hi_flyer

Van alles te melden

Of

1
2
3
4
5
6
7

sub splitdata()
    dim array as string
    dim location as string
    location = sheet1.range("A1").value
    array = split(location;",")
    'en dan array wegschrijven naar de gewenste cellen
end sub

dinsdag 23 februari 2010 @ 20:35:36 #287

Piles

Nieuwe vraag van mij

1
2
3
4
5
6
7

1   Keuze 1       € 5,00
0   Keuze 2       € 7,00
1   Keuze 3       € 45,00
0   Keuze 4       € 13,00
1   Keuze 5       € 22,00
0   Keuze 6       € 8,00
1   Keuze 7       € 3,00

Hoe krijg ik nu keuze 1,3,5 en 7 in een nieuw werkblad, in rijen onder elkaar. Zonder lege regels?

Office 2007, NL

Oh, en in rij 1-10 en rij 15-20 staat tekst bijvoorbeeld, dus ik wil dan de keuzes tussengevoegd hebben (rij 11-14)

[ Bericht 7% gewijzigd door Piles op 23-02-2010 21:27:16 ]

dinsdag 23 februari 2010 @ 21:55:09 #288

Hi_flyer

Van alles te melden

quote:
Op dinsdag 23 februari 2010 20:35 schreef Piles het volgende:
Nieuwe vraag van mij :+
[ code verwijderd ]

Hoe krijg ik nu keuze 1,3,5 en 7 in een nieuw werkblad, in rijen onder elkaar. Zonder lege regels? :)
Office 2007, NL

Oh, en in rij 1-10 en rij 15-20 staat tekst bijvoorbeeld, dus ik wil dan de keuzes tussengevoegd hebben (rij 11-14) :@

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Sub naarjuisteplekjeinjuistewerkblad()
    Sheet1.Select
    For i = 1 To 4
    Dim locationsheet1, locationsheet2
    locationsheet1 = "a" & 1 + ((i - 1) * 2) & ":c" & 1 + ((i - 1) * 2)
    locationsheet2 = "a" & i & ":c" & i
    Range(locationsheet1).Select
    Selection.Copy
    Sheet2.Select
    Range(locationsheet2).Select
    ActiveSheet.Paste
    Sheet1.Select
    Next
    Application.CutCopyMode = False

End Sub

dinsdag 23 februari 2010 @ 22:13:30 #289

Piles

quote:
Op dinsdag 23 februari 2010 21:55 schreef Hi_flyer het volgende:

[..]
[ code verwijderd ]

Oh, misschien niet helemaal duidelijk, maar die 1,3,5,7 is toevallig. Het gaat erom dat er een 1 voor staat

Het totaal aantal keuzes is niet bekend, dus er kunnen 50 keuzes zijn, waarbij er maar 3 daadwerkelijk gekozen zijn (met een 1)

En die 3 keuzes wil ik dan allemaal ingevoegd op bijvoorbeeld rij 15, al lukte die aanpassing me wel

Oh, en mochten er nog tips voor boeken over VBA zijn, dan hoor ik dat graag. Ik moet dit echt gaan leren, je kan er veel te veel mee

dinsdag 23 februari 2010 @ 22:57:40 #290

Hi_flyer

Van alles te melden

quote:
Op dinsdag 23 februari 2010 22:13 schreef Piles het volgende:

[..]

Oh, misschien niet helemaal duidelijk, maar die 1,3,5,7 is toevallig. Het gaat erom dat er een 1 voor staat
Het totaal aantal keuzes is niet bekend, dus er kunnen 50 keuzes zijn, waarbij er maar 3 daadwerkelijk gekozen zijn (met een 1)
En die 3 keuzes wil ik dan allemaal ingevoegd op bijvoorbeeld rij 15, al lukte die aanpassing me wel

Oh, en mochten er nog tips voor boeken over VBA zijn, dan hoor ik dat graag. Ik moet dit echt gaan leren, je kan er veel te veel mee

ah ok, dat wist ik niet. Ik ga ff kijken.

dinsdag 23 februari 2010 @ 23:24:32 #291

Piles

quote:
Op dinsdag 23 februari 2010 22:57 schreef Hi_flyer het volgende:

[..]

ah ok, dat wist ik niet. Ik ga ff kijken.

Tof

Ik vond dit al heel aardig werken

dinsdag 23 februari 2010 @ 23:31:46 #292

Hi_flyer

Van alles te melden

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Sub tweedeprobeerseltje()
    Sheet1.Select
    maxrowsheet1 = ActiveSheet.UsedRange.Rows.Count

    For i = 1 To maxrowsheet1
        pos1 = "A" & i
        If Sheet1.Range(pos1).Value = 1 Then
            selection1 = "A" & i & ":c" & i
            Range(selection1).Select
            'MsgBox selection1
            Selection.Copy
            Sheet2.Select
            newrowsheet2 = "A" & ActiveSheet.UsedRange.Rows.Count + 1 & ":C" & ActiveSheet.UsedRange.Rows.Count + 1
            'MsgBox newrowsheet2
            Range(newrowsheet2).Select
            ActiveSheet.Paste
            Sheet1.Select
        Else

        End If
    Next
End Sub

This will do the trick

quote:
Oh, en in rij 1-10 en rij 15-20 staat tekst bijvoorbeeld, dus ik wil dan de keuzes tussengevoegd hebben (rij 11-14)

Alleen hier snap ik niet wat je precies wilt....

dinsdag 23 februari 2010 @ 23:49:08 #293

Piles

quote:
Op dinsdag 23 februari 2010 23:31 schreef Hi_flyer het volgende:

[ code verwijderd ]

This will do the trick *O*
[..]

Alleen hier snap ik niet wat je precies wilt....

Held _O_
Nou, ik heb op rij 10 een vaste tekst staan, en op rij 15 ook. De gemaakte keuzes (rijen) wil ik hier tussen hebben. Dus dat de tekst op rij 15 naar beneden schuift.
Dus ik heb 'm nog een beetje aangepast tot dit:

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

Sub tweedeprobeerseltje()
    Blad2.Select
    maxrowsheet1 = ActiveSheet.UsedRange.Rows.Count
    teller = 14

    For i = 1 To maxrowsheet1
        pos1 = "A" & i
        If Blad2.Range(pos1).Value = 1 Then
            teller = teller + 1
            selection1 = "A" & i & ":Z" & i
            Range(selection1).Select
            'MsgBox selection1
            Selection.Copy
            Blad3.Select
            'newrowsheet2 = "A" & ActiveSheet.UsedRange.Rows.Count + 1 & ":C" & ActiveSheet.UsedRange.Rows.Count + 1
            newrowsheet2 = "B" & teller & ":Z" & teller
            'MsgBox newrowsheet2
            Range(newrowsheet2).Select
            ActiveCell.Offset(1).EntireRow.Insert
            Range(newrowsheet2).Select
            'ActiveSheet.Paste
            Blad2.Select
        Else

        End If
    Next
End Sub

En dan voegt ie netjes het aantal rijen toe ^O^

woensdag 24 februari 2010 @ 09:00:37 #294

dj_ko

*gaap*

Wie kan mij helpen?
Ik gebruik Excel 2007 en heb hierin een keuzebox/dropdownlist gemaakt.
hierin staan de namen van 10 personen
Nu wil ik echter als ik een persoon selecteer uit mijn keuzelijst het adres van deze persoon in een andere cell laten weergeven.
Bijvoorbeeld in de eerste cel de keuze/dropdown menulijst en in de cellen daaronder de adresgegevens.
Iemand enig idee hoe ik dit kan doen?

woensdag 24 februari 2010 @ 09:02:16 #295

DaFan

Je maakt in een apart blad een tabel met alle gegevens, naam, straat, huisnummer etc.

Dan geef de range van alle namen mee in de dropdown, dan vult de dropdown zich met die namen.
De rest van de gegevens haal je dan gewoon op met een VLOOKUP.

woensdag 24 februari 2010 @ 10:03:26 #296

dj_ko

*gaap*

Ik heb het nu als volgt:
op blad 1 heb ik een dropdown menu, hierin staan nu alle namen.
op blad 2 heb ik 4 kolommen:
Naam - Adres - postcode - plaats.

Bijvoorbeeld:
Blad2:
Jan klaassen cel: R2K1
Straatlaan 33 cel: R2K2
1234 AA cel: R2K3
Amsterdam cel: R2K4
Op blad 1 heb ik in Cel: R5K6 mijn keuze lijst
Nu heb ik al even lopen stoeien maar ik krijg het niet voor elkaar.
op blad1 in cel R6K6 wil ik het adres laten weergeven, deze moet hij weergeven als ik iets uit cel R5K6 selecteer.
Heeft iemand een voorbeeld van een formule die ik hiervoor kan gebruiken? met de VLOOKUP formule kom ik er niet uit. (heb trouwens de NL versie van Excel)

woensdag 24 februari 2010 @ 10:30:17 #297

DaFan

Wat voor dropdown gebruik je, een combobox van VBA of een Validatie lijst?
VLOOKUP = VERT.ZOEKEN

woensdag 24 februari 2010 @ 10:41:36 #298

dj_ko

*gaap*

quote:
Op woensdag 24 februari 2010 10:30 schreef DaFan het volgende:
Wat voor dropdown gebruik je, een combobox van VBA of een Validatie lijst?
VLOOKUP = VERT.ZOEKEN

Ik maak gebruik van een gegevensvalidatie lijst.
_{( ik moet trouwens wel zeggen dat mijn Excel ervaring niet zo breed is)}

woensdag 24 februari 2010 @ 10:49:22 #299

DaFan

Nou als er in de cel waar je dropdown in staat, staat "Jansen"
En dat staat in cel A1.

De rest van je info staat in C1:E10 (want er zijn 10 namen met 1 kolom voor de naam, 1 kolom voor stratnaam, 1 kolom voor stad)

Dan kan je de straatnaam vinden via:
=VERT.ZOEKEN(A1;C1:E10;2;0)

Dat geeft als resultaat de waarde in kolom D waar in kolom C staat "Jansen".

woensdag 24 februari 2010 @ 11:20:23 #300

dj_ko

*gaap*

quote:
Op woensdag 24 februari 2010 10:49 schreef DaFan het volgende:
Nou als er in de cel waar je dropdown in staat, staat "Jansen"
En dat staat in cel A1.

De rest van je info staat in C1:E10 (want er zijn 10 namen met 1 kolom voor de naam, 1 kolom voor stratnaam, 1 kolom voor stad)

Dan kan je de straatnaam vinden via:
=VERT.ZOEKEN(A1;C1:E10;2;0)

Dat geeft als resultaat de waarde in kolom D waar in kolom C staat "Jansen".

Thanks

, het werkt nu, ik had net de waarde voor het selecteren van de juiste kolom niet goed staan

woensdag 24 februari 2010 @ 11:22:56 #301

DaFan

Nice

[Excel] Het grote Excel vragen topic #19

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software