[VBA] Αυτόματη συμπλήρωση

[mdragon]

Καλησπέρα σε όλη την παρέα,
θα ήθελα για άλλη μία φορά την βοήθειά σας.
Σε ένα φύλλο με πολλές καταχωρήσεις το όνομα του πελάτη φαίνεται μόνο στην πρώτη γραμμή ακόμα και αν υπάρχουν δεδομένα και στις επόμενες γραμμές.
Δεν μπορώ όμως να χρησιμοποιήσω το φίλτρο σε εκείνη την στήλη.
Προσπάθησα να κάνω αντιγραφές με το shift + xldown αλλά είναι πολλές οι γραμμές.
Έφτιαξα αυτόν τον κώδικα (με τα λίγα που ξέρω)
αλλά έπρεπε να το κάνω σε κάθε γραμμή και το χειρότερο ότι όταν έφτανε στον τελευταίο πελάτη αντέγραφε τις τιμές έως το τέλος του φύλλου

Sub FillOut()
Dim c As Range, d As Range
Application.ScreenUpdating = False
Range("DataSource").Select

Set c = Range("DataSource").End(xlDown).Offset(0)
c.Select
Selection.Copy

Set d = ActiveCell.Offset(1)
d.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Application.ScreenUpdating = True
End Sub

Τονίζω ότι οι γραμμές δεν είναι ποτέ ίδιες.
Επισυνάπτω ένα παράδειγμα δεδομένου ότι δεν μπορώ να ανεβάσω αρχείο με προσωπικά δεδομένα.

[kapetang]

Καλησπέρα Μάρω

Στο συνημμένο προτείνω μία λύση με κώδικα και μία χωρίς.

[mdragon]

Γιώργο σε ευχαριστώ για την άμεση απόκριση.
Υπάρχει τρόπος να βάζουμε σε ένα κελί πχ f2 - a2:a15 και να τραβάει την περιοχή ανάλογα με τα δεδομένα του κελιού??
Την καλησπέρα μου!

[kapetang]

Καλησπέρα Μάρω

Άλλαξε την εντολή:

    Set rng = Range(InputBox("Δώσε την περιοχή κελιών στη μορφή:" & vbCrLf & vbCrLf & _
    "          1. στήλης a5:a100 ή " & vbCrLf & vbCrLf & _
    "          2. γραμμής a3:x3" & vbCrLf & vbCrLf & _
    "Το 1ο κελί δεν πρέπει να είναι κενό"))

με την: Set rng = Range(Range("f2"))

[mdragon]

Γιώργο σε ευχαριστώ για ακόμη μία φορά!!!!

[kapetang]

Να είσαι καλά και καλή συνέχεια.