Informatie wegschrijven

[wiki]

In de bijlage roep ik met een lijst een rij in het blad "lijst" aan. Aan deze rij wiI ik informatie uit de cellen naast de paarse cellen toevoegen als het blad verzonden wordt met een bestaande macro. Wie kan mij helpen met de juiste formule/vba script?

mvg Wim

 

[Roncancio]

Een formule volstaat.
Er zijn verschillende soorten formules die je hiervoor kunt gebruiken.

Ik heb ook even je datavalidatie aangepast.
Er stonden namelijk lege cellen onderaan de lijst, wat ik persoonlijk niet zo mooi vind.
Maak je geen zorgen overigens, als je de lijst aanvult, dan worden de waardes automatisch meegenomen in de datavalidatie.

Met vriendelijke groet,


Roncancio

 

[wiki]

Beste Roncancio,

Ik ben misschien niet helemaal duidelijk geweest. Met het formulier wordt de informatie uit de lijst gelezen; de cellen naast blauw. Ik wil met de cellen naast rood een update invoeren die voor de sendmail code verwerkt wordt in het overzicht.

gr wim

 

[wiki]

Ik heb met zoeken het volgende gevonden. http://www.helpmij.nl/forum/showpost.php?p=2489716&postcount=8 Volgens mij moet het met wat puzzelen hiermee lukken.

Tot later

gr Wim

 

[wiki]

Helaas

Ik heb de code aangepast aan de bijlage, maar ergens maak ik een fout. Wie kan helpen? De code loopt vast bij de regel:

Worksheets("Lijst").Cells(PN.row, lRij / 13 - 16) = Range("G" & lRij).Value

Sub Vervangen()
Dim rbereik As Range
Dim lRij As Long
    With Worksheets("Lijst").Range("Volgnummer")
        Set PN = .Find(Range("c2").Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not PN Is Nothing Then
            For lRij = 17 To 20 Step 2
                If Range("D" & lRij).Value <> "" Then
                    Worksheets("Lijst").Cells(PN.row, lRij / 13 - 16) = Range("G" & lRij).Value 
                End If
            Next
        End If
    End With
End Sub

Mvg wim

 

[Roncancio]

Ik heb de code aangepast aan de bijlage, maar ergens maak ik een fout. Wie kan helpen? De code loopt vast bij de regel:

Worksheets("Lijst").Cells(PN.row, lRij / 13 - 16) = Range("G" & lRij).Value

Sub Vervangen()
Dim rbereik As Range
Dim lRij As Long
    With Worksheets("Lijst").Range("Volgnummer")
        Set PN = .Find(Range("c2").Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not PN Is Nothing Then
            For lRij = 17 To 20 Step 2
                If Range("D" & lRij).Value <> "" Then
                    Worksheets("Lijst").Cells(PN.row, lRij / 13 - 16) = Range("G" & lRij).Value 
                End If
            Next
        End If
    End With
End Sub

Mvg wim

Wat gaat er precies niet goed?
Welke waarde moet waar komen te staan?

Met vriendelijke groet,


Roncancio

 

[wiki]

D17: D20 op blad formulier naar "rij" m,n,o,p op blad lijst

gr Wim

 

[Roncancio]

Sub Vervangen()
Set PN = Worksheets("Lijst").Range("Volgnummer").Find(Range("c2").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not PN Is Nothing Then
    Range("D17:D20").Copy
    Worksheets("Lijst").Range("M" & PN.row & ":P" & PN.row).PasteSpecial , Transpose:=True
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[wiki]

Bedankt:thumb::thumb:

gr Wim