*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Recente berichten

Pagina's: [1] 2 3 4 ... 10
1
Excel / Re: Snelle macro
« Laatste bericht door JeanPaul Gepost op Vandaag om 16:17:37 »
die 2 codes zeggen weinig, laat het hele bestand eens zien samen met de macro, misschien met case... select case zou een oplossing zijn.
2
Excel / Snelle macro
« Laatste bericht door tonnie Gepost op Vandaag om 14:51:42 »
Beste mensen,

Hier zitten er 30 van in een macro kan dat sneller?

If Sheets("Werkomschrijving").Range("o11").Value = Sheets("gegevens").Range("h15").Value Then
    Sheets("gegevens").Range("k15").Value = Sheets("Werkomschrijving").Range("l14").Value
    End If
    If Sheets("Werkomschrijving").Range("o11").Value = Sheets("gegevens").Range("h16").Value Then
    Sheets("gegevens").Range("k16").Value = Sheets("Werkomschrijving").Range("l14").Value
    End If

Grt Tonnie
3
Excel / Re: Code aanpassen
« Laatste bericht door tonnie Gepost op Vandaag om 14:37:24 »
Hoi Leo,

Ja dat werkt ook goed, net als die van JeanPaul.

  a = Range("A21:F" & Range("A" & Rows.Count).End(xlUp).Row)
Ik heb die van JeanPaul gebruikt en alles loopt als een tierelier, ook de beveiliging bij geen bestelling zit goed.

Ik laat het zo het is en ga weer verder bouwen, thanks allemaal was weer gezellie :thumbsup:
4
Excel / Re: Code aanpassen
« Laatste bericht door RedHead Gepost op Vandaag om 14:01:49 »
Maak van...
  a = Cells(21, 1).CurrentRegion.Value
...deze...
  a = Cells(21, 1).CurrentRegion.resize(,6).Value
5
Access / Re: bewerking uitvoeren in tabel
« Laatste bericht door pellonpekko Gepost op Vandaag om 13:57:47 »
Dit is inderdaad helemaal wat ik bedoel, heel erg bedank, nu kan ik weer een stuk verder.
Groetjes  \/
6
Excel / Re: Code aanpassen
« Laatste bericht door tonnie Gepost op Vandaag om 13:25:13 »
Ik heb er dit van gemaakt maar dat kan best eleganter of niet?

Sub finale()

    Dim a, i As Long, txt As String, w
    a = Cells(21, 1).CurrentRegion.Value
    ''a = Range("A21:F" & Range("A" & Rows.Count).End(xlUp).Row)
    Range("A21:F" & Cells(Rows.Count, 1).End(xlUp).Row).Clear
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 1 To UBound(a, 1)
       
            txt = Join(Array(a(i, 1), a(i, 6)), Chr(2))
            If Not .exists(txt) Then
                .Item(txt) = VBA.Array(a(i, 1), " ", " ", a(i, 4), a(i, 5), a(i, 6))
            Else
                w = .Item(txt): w(3) = w(3) + a(i, 4)
                .Item(txt) = w
            End If
        Next
        a = .items: i = .Count
    End With
   
    If Range("F22") = "" Then
    MsgBox "Er is niets te bestellen"
    Exit Sub
    Else
    End If
  Range("a21").Resize(i, 6).Value = Application.Index(a, 0, 0) ''range = welke rij hij wegschrijft
End Sub
7
Excel / Re: Code aanpassen
« Laatste bericht door tonnie Gepost op Vandaag om 12:31:21 »
Leo ik weet al wat het probleem is:

Als de lijst geen opmerkingen heeft in kolom c dus dan gaat het fout.



Hoe los ik op als kolom c leeg is toch gewoon ze ding doen.

En hoe los ik op als ik als ik helemaal niks heb hij een msgbox geeft met niks te bestellen.


ha net te laat :P

Ik heb nog wel iets als dit nodig:

if txt =nothing then
msgbox "Er is niets te bestellen"
exit sub
else
end if

8
Excel / Re: Code aanpassen
« Laatste bericht door JeanPaul Gepost op Vandaag om 12:26:19 »
Verander in de macro eens
a = Cells(21, 1).CurrentRegion.Value
naar
    a = Range("A21:F" & Range("A" & Rows.Count).End(xlUp).Row)
dan werkt die wel, in je voorbeeld bestand is kolom C volledig leeg, currentRegion is dan alleen "A21:B37",
vandaar dat a(i,6) buiten bereik valt.
toch mooi van VBA dat die u dat vertelt.
9
Excel / Re: Code aanpassen
« Laatste bericht door JeanPaul Gepost op Vandaag om 12:14:10 »
zonder code en bestand is het moeilijk een oplossing te geven
10
Excel / Re: Code aanpassen
« Laatste bericht door RedHead Gepost op Vandaag om 12:13:17 »
Heeft die sheet wel 6 aaneengesloten kolommen? Wat is de waarde van i als de code vastloopt?
Pagina's: [1] 2 3 4 ... 10

www.combell.com