Temat: Makro. Przenoszenie komórek zaznaczonych pomiędzy arkuszami.

Witajcie. Potrzebuję przerobic makro którego używam do przenoszenia danych między arkuszami.
Plik wyglądatak:
link do obrazka: http://ifotos.pl/z/whwpnrr

Makro wygląda następująco:

"Sub przenieś()
'
' przenieś Makro
'

'
Range("A8:F8").Copy

Sheets("Popisane").Select
ActiveSheet.Range("a65536") _
.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
ActiveSheet.Paste
Columns("F:F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Do podpisu").Select
Rows("8:8").Select
Selection.Delete Shift:=xlUp
Sheets("Do podpisu").Select
End Sub"

W tym momencie po wcisnieciu przycisku "potwierdz podpisanie w banku" kopiowany jest tylko zakres komórek a8:f8 i wklejany w pierwszym pustym wierszu od dołu w zakładce podpisane, następnie juz w arkuszu "podpisane" kolumna F ( w której jest formuła =JEŻELI(A8<>"";DZIŚ();"") jest kopiowana i wklejana jako wartość, a następnie w akruszu "do podpisu", usuwany jest cały wiersz 8.

Przez to trzeba potwierdzać każdy przelew po kolei, i nie można żadnego zostawić na później

Chciałbym jednak aby możliwe było kopiowanie wszystkich zaznaczonych zakresów, które byłyby np zaznaczane za pomocą pola wyboru, albo aby po wcisnieciu przycisku makra, pojawiało się zapytanie o to, które wierszse chcemy przenieśc do arkusza "podpisane". Tak aby po uzyciu makra zostały tylko te pozycje których nie chcemy na razie potwierdzać.

Może macie jakies jeszcze inne propozycje.Ten post został edytowany przez Autora dnia 05.12.14 o godzinie 16:10