kopieer-plak

[SUVERMO]

hallo,

kan iemand mij helpen.
Bedoeling is dat de macro "Kopieer_Plak" de gele cellen gekopieërd worden naar het adres vermeld in de rose cel

 

[cow18]

wie bedenkt er dergelijke moeilijke constructies ?
Als je bezig bent in VBA, dan doe je alles in VBA, ipv. snel nog een keer iets van je werkblad te lezen.

Sub Kopieer_Plak2()
     Dim Plak  As Range
     sn = Split(Range("Plak").Value, "!")
     Select Case UBound(sn)
          Case 1: Set sh = Sheets(sn(0))
          Case 0: Set sh = ActiveSheet
          Case Else: MsgBox "problem": Exit Sub
     End Select
     Range("Kopieer").Copy sh.Range(sn(UBound(sn)))
End Sub

 

[SUVERMO]

bedankt cow18,

het is een hobby om zoiets te bedenken.
Uw code werkt prima, ik heb proberen te begrijpen wat deze doet.

resultaat is geworden.

Sub Kopieer_Plak()
Plak = [Plak].Value
Range("Kopieer").Copy Worksheets("kopieer-plak").Range(Plak)
End Sub

ik ga dit nu proberen te gebruiken in het bestand waarvoor ik het nodig heb.

 

[cow18]

With Sheets("Kopieer-Plak")
EersteRij = 7
LaatsteRij = Application.Max(.Columns("D"))
...

End With

 

[SUVERMO]

bedankt voor de tip

Sub Kopieer_Plak()
Range("Kopieer").Copy Worksheets("kopieer-plak").Range("B7:B" & Application.Max(Sheets("Kopieer-Plak").Columns("D")))
End Sub

Sub Kopieer_Plak2()
'bij deze mogen er boven de gele cellen rijen verwijderd of ingevoegd worden, voor kolommen invoegen ????
Range("Kopieer").Copy Worksheets("kopieer-plak").Range("B" & Range("Kopieer").Row + 1 & ":B" & Application.Max(Sheets("Kopieer-Plak").Columns("D")))
End Sub

 

[cow18]

mooi

 

[SUVERMO]

toch nog een vraag.
Is het mogelijk om dit bestand, en andere *.xlsm bestanden, te gebruiken door iemand die geen Excel op zijn computer heeft staan?

 

[cow18]

met een (gratis!) excel viewer kan je excel openen, bekijken & printen, maar verder niet gebruiken, denk ik, dus neen.