Als aan 2 voorwaarden wordt voldaan, celwaarde op ander blad.

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Beste mensen,

Ik ben op zoek naar de code die Als er aan 2 voorwaarden wordt voldaan, celwaarde plaatst op een ander blad.

Sheet "Basis" Range = A6:F38


als A6 = "Urenfacturatie" & D6 = "Hal 1", dan F6 (waarde) plakken in sheet "Bestand" in cel A21
volgende regel t/m 38

In het voorbeeld zou dus waarde F6:F15 moeten worden geplakt in Sheet bestand A21:A30.


Alvast bedankt
 

Bijlagen

  • 2 voorwaarden input.xlsx
    61,2 KB · Weergaven: 23
Daar kunnen weer meerdere vragen bij worden gesteld.
Maar probeer dit eens:
Code: 
Sub Urenfacturatie()
    Soort = "Urenfacturatie"
    Safd = "Hal 1"
    
    y = 21
    For i = 6 To 38
        With Sheets("Basis")
            If .Cells(i, 1) = Soort And .Cells(i, 4) = Safd Then
                Sheets("Bestand").Cells(y, 1) = .Cells(i, 6)
                y = y + 1
            End If
        End With
    Next i
End Sub
 
Laatst bewerkt:
Hallo Edmoor,

Dank voor je reactie en moiete.

Ik krijg helaas een melding variabele zijn niet gedifinieerd.
 
Dan heb je Option Explicit aan staan en moet je dat uit zetten of de variabelen declareren:
Code: 
Dim Soort As String
Dim Safd As String
 
Dan moet die kennelijk ook nog, vergat ik ;)
Code: 
Dim y As Integer

Voor dat soort kleine projectjes is het eenvoudiger om die Option Explicit regel te verwijderen.
Dan hoef je variabelen niet te declareren.
 
Laatst bewerkt:
En wat denk je dat je dan moet doen?
 
:) Is gelukt Edmoor. en zo te zien doet ie goed, ga 'm even doortesten.
Alvast super bedankt en fijne feestdagen.
 
Graag gedaan en hetzelfde gewenst :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan