Lisette2016
Gebruiker
- Lid geworden
- 10 okt 2016
- Berichten
- 46
Hallo,
Ik heb een VBA code, die werkt op zich goed, alleen wil ik een vaste waarde verwijzen naar een celwaarde, zou dit kunnen?
Het betreft "Trucksoort" heftruck, 30, zou dan vervangen moeten worden door "Sheet "Magazijn A" celwaarde van B4 (waar in dit geval de waarde "Heftruck" staat).
Ik weet niet of dit zo kan, heb al wat geprobeerd maar is met mijn beperkte kennis niet gelukt.
Gr Lis
Sub TruckSoorten_toewijzen()
Sheets("Magazijn A").Select
TruckSoort "Heftruck", 30
TruckSoort "Reachtruck", 230
End Sub
Sub TruckSoort(truck As String, doelregelnr As Long)
Dim strZoekwaarde As String
Dim lngZoekKolomNr As Long
Dim lngZoekRegel As Long
Dim lngDoelRegel As Long
strZoekwaarde = truck
lngDoelRegel = doelregelnr
lngZoekRegel = 2
Do While Worksheets("Magazijn A").Cells(lngZoekRegel, 5) <> vbNullString
If Worksheets("Magazijun A").Cells(lngZoekRegel, 5).Value = strZoekwaarde Then
For lngZoekKolomNr = 1 To 10
Worksheets("Analyse Magazijn A").Cells(lngDoelRegel, lngZoekKolomNr).Value = Worksheets("Magazijn A").Cells(lngZoekRegel, lngZoekKolomNr).Value
Next lngZoekKolomNr
lngDoelRegel = lngDoelRegel + 1
End If
lngZoekRegel = lngZoekRegel + 1
Loop
Sheets("Analyse Magazijn A").Select
End Sub
Ik heb een VBA code, die werkt op zich goed, alleen wil ik een vaste waarde verwijzen naar een celwaarde, zou dit kunnen?
Het betreft "Trucksoort" heftruck, 30, zou dan vervangen moeten worden door "Sheet "Magazijn A" celwaarde van B4 (waar in dit geval de waarde "Heftruck" staat).
Ik weet niet of dit zo kan, heb al wat geprobeerd maar is met mijn beperkte kennis niet gelukt.
Gr Lis
Sub TruckSoorten_toewijzen()
Sheets("Magazijn A").Select
TruckSoort "Heftruck", 30
TruckSoort "Reachtruck", 230
End Sub
Sub TruckSoort(truck As String, doelregelnr As Long)
Dim strZoekwaarde As String
Dim lngZoekKolomNr As Long
Dim lngZoekRegel As Long
Dim lngDoelRegel As Long
strZoekwaarde = truck
lngDoelRegel = doelregelnr
lngZoekRegel = 2
Do While Worksheets("Magazijn A").Cells(lngZoekRegel, 5) <> vbNullString
If Worksheets("Magazijun A").Cells(lngZoekRegel, 5).Value = strZoekwaarde Then
For lngZoekKolomNr = 1 To 10
Worksheets("Analyse Magazijn A").Cells(lngDoelRegel, lngZoekKolomNr).Value = Worksheets("Magazijn A").Cells(lngZoekRegel, lngZoekKolomNr).Value
Next lngZoekKolomNr
lngDoelRegel = lngDoelRegel + 1
End If
lngZoekRegel = lngZoekRegel + 1
Loop
Sheets("Analyse Magazijn A").Select
End Sub