Mefisto...diabeł czy anioł?

Dosyć często muszę przenosić dane z poszczególnych komórek excela do odpowiednich pól w zewnętrznej aplikacji. Wykorzystuje do tego wieloschowek


http://www.lw-works.com/clipboard-recorder

Aby nie kopiować po kolei każdej z komórek z wiersza wymy¶liłem takie o to makro, które sprawdza się ze schowkiem Excela. Niestety nie działa z wieloschowkiem, ponieważ kopiuje jedynie ostatni± komórkę - dla tego makro Range("F" & ActiveCell.Row)


Sub kopiowanie()
ActiveSheet.Select
Range("B" & ActiveCell.Row).Copy
Range("C" & ActiveCell.Row).Copy
Range("D" & ActiveCell.Row).Copy
Range("E" & ActiveCell.Row).Copy
Range("F" & ActiveCell.Row).Copy
MsgBox ("Wiersz nr " & Cells(ActiveCell.Row, 1).Value & " został skopiowany do schowka")
Range("G" & ActiveCell.Row) = "Zarejestrowany"
End Sub

Czy da się przerobić to makro aby również działało z wieloschowkiem ?
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl