προσαρμογή κελιών σε Excel

[M.OIKONOMOY]

Να κάνω και άλλη μία ερώτηση.

Σε ένα φύλλο excel έχω πάρα πολλά κελιά που κάποια έχουν αριθμούς και

κάποια άλλα δεν έχουν(τα κενά είναι αρκετά συνήθως).Θα ήθελα εάν γνωρίζει κάποιος να μου γράψει εάν εισάγω ένα κουμπί τι κώδικα θα πρέπει να βάλω σε vb για να προσαρμόζω σ'ένα άλλο φύλλο μόνο τα κελιά που έχουν τους αριθμούς.

Ευχαριστώ όσους ασχοληθούν

[M.OIKONOMOY]

Επαναφέρω το θέμα με παράδειγμα

μήπως κάποιος φίλος έχει την λύση

Εστω οι 2 παρακάτω στήλες στο φύλλο1 με τα εξης δεδομενα

στηλη α1 = αυγα β1=5,00,α2=κηπευτικά β2=2,00 α3= φρούτα β3=0,00

α4=νερό,β4=κενό , α5=είδη ενδυσης,β5=6,00 α6=σύνολο β6= 13,00

θέλω να προσαρμόζονται σε ένα άλλο φύλλο2 ώς εξής

στηλη α1 = φρουτα β1=5,00,α2=κηπευτικά β2=2,00 α5=είδη γραφείου,β5=6,00 α6=σύνολο β6= 13,00

Θέλω πατώντας ένα κουμπί να μεταφέρεται ολόκληρη η στήλη και να αντιγραφει τα περιεχόμενα κάθε κελιού (και του διπλανού με τις λέξεις) όταν το κελί περιέχει νούμερο.

[UserXP]

>
Private Sub CommandButton1_Click()
Dim r As Range, c As Range
Dim ToSheet As Worksheet

'<<<<<<<<<<<<<<<<--------------------->>>>>>>>>>>>>>>>>
'Βάλε στη θέση του Sheet2 το όνομα του φύλλου στο οποίο θέλεις να μεταφέρονται τα κελιά
Set ToSheet = Sheets("Sheet2")
Set r = Selection

For Each c In r.Cells
   If IsNumeric(c) And (Not IsEmpty(c)) Then
       ToSheet.Cells(c.Row, c.Column) = c
       ToSheet.Cells(c.Row, c.Column - 1) = Cells(c.Row, c.Column - 1)
   End If
Next

End Sub

 

Χρησιμοποίησε τον παραπάνω κώδικα για το κουμπί σου.

1. Πρώτα διόρθωσε τη γραμμή Set ToSheet = Sheets("Sheet2"), αλλάζοντας το Sheet2 με το όνομα του φύλλου στο οποίο θέλεις να μεταφέρονται τα κελιά

2. Πριν πατήσεις το κουμπί που θα κάνει τη δουλειά, πρέπει να επιλέξεις τα κελιά της στήλης που περιέχουν τα νούμερα (στο παράδειγμά σου από Β1 έως Β6) και ΟΧΙ της διπλανής με τις λέξεις. Ο κώδικας θα μεταφέρει και τα κελιά που βρίσκονται αριστερά από τα επιλεγμένα (τις λέξεις).

 

 

Σημείωσε επίσης ότι στο παράδειγμά σου το "α3= φρούτα β3=0,00" θα μεταφερθεί στο νέο φύλλο γιατί το Β3 περιέχει νούμερο.

[M.OIKONOMOY]

ευχαριστώ πολύ userxp