[Excel] Het grote Excel vragen topic #18

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

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

» digital corner

» software

» digital corner

» software