04-11-17, 15:54
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Ο δαίμων του τυπογραφείου...
Άλλαξε το κάτω μέρος του κώδικα, ανάμεσα σε αυτό Κώδικας: If Target.Value = "" And iMcol = 0 Then Exit Sub
και αυτό βάλε Κώδικας: Dim i As Long, dx As Integer, icnt As Integer
icnt = Application.WorksheetFunction.Count(Sheet1.Range("ah3:ah33"))
For i = 3 To icnt + 2
dx = DatePart("d", Sheet1.Cells(i, 34).Value)
If dx = icol - 1 Then
Sheet1.Cells(i, iMcol).Value = Sheet1.Cells(irow, 1).Value
End If
Next i
|