Advertisement
Guest User

Untitled

a guest
Nov 30th, 2015
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Range("B3").Select
  2. Windows("plik.csv").Activate
  3. Sheets("arkusz1").Select
  4. Range("B15").Select
  5. Selection.Copy
  6. Windows("wynik").Activate
  7. Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
  8. SkipBlanks:=False, Transpose:=False
  9.  
  10. Range("C3").Select
  11. Windows("plik1.csv").Activate
  12. Sheets("arkusz1").Select
  13. Range("D15").Select
  14. Selection.Copy
  15. Windows("wynik").Activate
  16. Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
  17. SkipBlanks:=False, Transpose:=False
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement