02-10-22, 20:21
|
| Όνομα: Δημήτρης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-12-2013 Περιοχή: Θεσσαλονίνη
Μηνύματα: 33
| |
 VBA Επικόλληση δεδομένων στην επόμενη άδεια στήλη
Καλησπέρα,
Δοκίμασε αυτό να δεις εαν λειτουργεί
Sub copyandpaste()
Range("C10:C11").Select
Selection.Copy
Sheets("Αποθήκευση").Select
Range("B6:B7").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Αρχείο σέρβις οχήματος").Select
Range("Υπηρεσία[[#All],[Στήλη3]]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Αποθήκευση").Select
Range("B9").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Αρχείο σέρβις οχήματος").Select
Range("F20").Select
End Sub
|