For each functie

[Boverduyn]

Hallo allemaal,

Bekijk bijlage Vraag for each.xlsm

Vraagje, weet iemand of het volgende kan:

Ik wil graag dat wanneer ik een getal in de userform van het voorbeeld bestand invul,
dat getal op alle werkbladen verschijnt (Nederland, Frankrijk, Duitsland).
Ik heb dit geprobeerd met een named range en de for each functie zoals u in het voorbeeld bestandje kunt zien.

Ook wil graag dat het getal in de eerste lege cel komt.

In het echte bestand zijn er meerdere landen en kunnen er maar 2 landen worden geselecteerd die het nummer krijgen.

Alvast bedankt voor jullie hulp, wordt gewaardeerd!

 

[VenA]

Private Sub CommandButton1_Click()
  For Each sh In Sheets
    If sh.Name <> "Sheet1" Then sh.Cells(Rows.Count, 1).End(xlUp).Offset(1) = TextBox1.Text
  Next sh
End Sub

 

[Boverduyn]

Perfect!

Heel erg bedankt!
Werkt super goed.

 

[snb]

Kijk eens bij

sheets.FillAcrossSheets