List value in cell plaatsen.

[Royzilla]

Goedemorgen.

Ik heb een vraagje:
Kan iemand mij helpen ik zit hier de heletijd maar mee te worstelen. Ik heb een 'dropdownlist' in cel B1.
Hierin staan een aantal maanden die ik uit een andere sheet haal. Als er een maand geselecteerd is en de macro is uitgevoerd, worden er in 2 kolommen een groot aantal percentages toegevoegd.

Maar mijn vraag is: Hoe kan ik de geselecteerde maand in de H3 krijgen en de maand daarvoor in f3?

Als iemand me een voorbeeldje kan geven is het al voldoende, want dan kan ik er zelf weer wat van opsteken.

 

[Niels28]

Als iemand me een voorbeeldje kan geven is het al voldoende

zou je dit dan eerst zelf kunnen doen in de vorm van een bestandje?


Niels

 

[Royzilla]

Hier een voorbeeld bestandje. Bekijk bijlage Testhelpmij.xlsm

 

[Warme bakkertje]

Met een beetje denkwerk had je deze makkelijk zelf kunnen vinden.

Sub TestMacro()
    
    With Sheets("Sheet2")
        fColumn = .Range("Q3:AB3").Find(Sheets("Sheet1").Range("B1")).Column
        .Cells(3, fColumn).Offset(1).Resize(39).Copy
        Sheets("Sheet1").Range("H3") = .Cells(3, fColumn).Value
        Sheets("Sheet1").Range("H4").PasteSpecial xlPasteValues
        .Cells(3, fColumn - 1).Offset(1).Resize(39).Copy
        Sheets("Sheet1").Range("F3") = .Cells(3, fColumn - 1).Value
        Sheets("Sheet1").Range("F4").PasteSpecial xlPasteValues
    End With
    
    Application.CutCopyMode = False
    
End Sub

 

[Royzilla]

pfff, inderdaad best erg ik kon gewoon amper helder denken hoe het mogelijk zou zijn om hem ergens te kunnen plaatsen.
Sorry voor de simpele vraag.
Bedankt bakkertje! Top!