Gelijke waarde in kolom T, dan kolom K optellen en herplaatsen op ander tabblad

[ewh]

normaal staat in kolom F alleen het wordt materiaal en in kolom T is de kosten plaats
de monteur is erg enthousiast geweest en heeft de kosten plaats ook in kolom F er bij gezet , hoort normaal niet
maar in principe komt het wordt materiaal alleen in kolom T op blad 2 te staan en op de kostenplaats kolom T het NL nummer

het lijkt een beetje vreemd ,maar uit eindelijk kan de admin een kopie maken en hem zo in het SAP systeem schieten en dat scheelt enorm veel tik tijd en niet te vergeten tik fouten met alle gevolgen van dien

 

[HSV]

Gaat het dan alleen om de materiaalteksten of om de gehele kolom F.

 

[ewh]

dat had ik al gedaan
maar in kolom F staat nog niets

 

[ewh]

alleen om de teksten met het woord materiaal

 

[HSV]

Sub hsv()
Dim sn, i As Long, sh As Object, y As Long
sn = Sheets("blad1").Range("f5", Sheets("blad1").Cells(Rows.Count, 6).End(xlUp).Resize(, 15))
ReDim arr(0)
 With CreateObject("scripting.dictionary")
    For i = 1 To UBound(sn)
     If InStr(sn(i, 1), "Matriaal") = 0 Then
       .Item(sn(i, 15)) = .Item(sn(i, 15)) + sn(i, 6)
     Else
       .Item(sn(i, 1)) = .Item(sn(i, 1)) + 1
          arr(UBound(arr)) = sn(i, 10)
        ReDim Preserve arr(UBound(arr) + 1)
     End If
    Next i
  Set sh = Sheets("blad2")
    sh.Cells(5, 11).Resize(.Count) = Application.Transpose(.items)
    sh.Cells(5, 15).Resize(.Count - UBound(arr)) = sh.Range("T2").Value
    sh.Cells(5, 20).Resize(.Count) = Application.Transpose(.keys)
       For i = UBound(arr) To 1 Step -1
         sh.Cells(Rows.Count, 15).End(xlUp).Offset(1 + y, -9) = .keys()(.Count - i)
         y = y + 1
       Next i
    sh.Cells(Rows.Count, 15).End(xlUp).Offset(1).Resize(UBound(arr)) = Application.Transpose(arr)
  End With
End Sub

 

[ewh]

sh.Cells(Rows.Count, 15).End(xlUp).Offset(1).Resize(UBound(arr)) = Application.Transpose(arr)

op deze regel krijg ik een fout 1004 gemeld ?
maar ik zie niet wat het is

 

[ewh]

sorry, nog ff aan het puzzelen geweest en je code werkt perfekt

ik had in de sheet het woord matrieel gewijzigd in materiaal

werkt top

 

[HSV]

Mooi zo,

Deze regel mag je nog wel eventjes veranderen.

Else
       .Item(sn(i, 1)) = .Item(sn(i, 1)) + 1

In:

Else
       .Item(sn(i, 1)) = .Item(sn(i, 1)) + sn(i,1)

 

[ewh]

ga ik doen.
kan je uitleg geven wat hij doet ?

 

[HSV]

Die eerste regel maakt een telling van .key (1+1+1+1+1)
De tweede maakt een som van .key (?+?+?+?)

Als er geen telling of som moet plaatsvinden haal je de +1 weg in de eerste.

Of:

.Item(sn(i, 1)) = sn(i, 6)

 

[ewh]

helder, weer wat geleerd