03-02-14, 10:49
|
| Όνομα: ΟΘΩΝΑΣ Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 10-05-2013
Μηνύματα: 27
| |
Ορθα Τασο εχεις δικιο και συγνωμη.
Εστω οτι εχουμε χ φυλλα απο τα οποια θα αντιγραψουμε τα κελια B12:f12 εαν ομως το κελι Β12>0.
ετσι :
If Sheets(x).Range("B12") > 0 Then
ActiveWorkbook.Sheets(x).Range("C2").Copy
Worksheets("Φύλλο1").Range("A" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Sheets(x).Range("B12:f12").Copy
Worksheets("Φύλλο1").Range("B" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
|