Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Hier gaat het nog fout, maar de los je zelf wel op.
Sub DATA_gereed()
'data overzetten naar klachtenoverzicht, overzicht opslaan en sluiten
Dim ar
Dim r
With Sheets("DATA overzetten")
ar = Array(.Range("gereed").Value)
End With
With GetObject("C:\Users\Botje\Documents\test excel\Klachtenoverzicht test.xlsm").Sheets("Klachten overzicht")
r = Application.Match(ar(0), .Columns(4), 0)
If IsNumeric(r) Then .Rows(Count, 23).Resize(, 1) = ar
.Parent.Close True
End With
If IsNumeric(r) Then 'heeft de overeenkomstige rij gevonden
.Cells(r, 3).Resize(, 19) = ar 'dan in die gevonden rij, de 3e kolom schrijf je de inhoud van ar (19 cellen breed)
Else
.Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 19) = ar 'anders zoek je vanaf beneden, de laatst ingevulde cel in de 3e kolom en de rij eronder plaats je ar
End If
If IsNumeric(r) Then[COLOR="#FF0000"] .cells(r,[/COLOR] 23).Resize(,[COLOR="#FF0000"] x[/COLOR]) = ar
With Sheets("DATA overzetten")
ar = Array(.Range("gereed").Value)' ***********denk eens goed na, welke waarde staat in range("gereed").value
End With
r = Application.Match(ar(0), .Columns(4), 0)
Sub DATA_gereed()
'data overzetten naar klachtenoverzicht, overzicht opslaan en sluiten
Dim ar
Dim r
With Sheets("DATA overzetten")
ar = Array(.Range("Document").Value, (.Range("gereed").Value)) 'kijk naar deze 2 cellen
End With
With GetObject("S:\Projecten\Klachten\Nieuwe Klachten procedure 2020\zz archief\Klachtenoverzicht test.xlsm").Sheets("Klachten overzicht")
r = Application.Match(ar(0), .Columns(4), 0) 'heeft overeenkomst gevonden in kolom 4 op basis document nr.(ar(0)
If IsNumeric(r) Then [COLOR="#0000FF"].Cells(r, 23).Resize(, 0) = ar[/COLOR]
.Parent.Close True
End With
End Sub
If IsNumeric(r) Then .Cells(r, 23).Resize(, 1) = r
With Sheets("DATA overzetten")
zoekwaarde = .Range("Document").Value
End With
With GetObject("S:\Projecten\Klachten\Nieuwe Klachten procedure 2020\zz archief\Klachtenoverzicht test.xlsm").Sheets("Klachten overzicht")
r = Application.Match(zoekwaarde, .Columns(4), 0)[COLOR="#008000"] 'zoek in kolom 4, zo ja , r is hier het rijnummer[/COLOR]
If IsNumeric(r) Then .Cells(r, 23)="gereed"
.Parent.Close True
End With
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.