Απ: VBA AND EXCEL

silot — Fri, 14 Oct 2011 21:14:52 GMT

ok thanks

Απ: VBA AND EXCEL

Rayden — Thu, 13 Oct 2011 20:52:57 GMT

Range("A1").End(xlDown).Select
Dim lastcell As Integer
lastcell = ActiveCell.Row

for row = 1 to lastcell

process

VBA AND EXCEL

silot — Thu, 13 Oct 2011 20:35:04 GMT

Καλησπέρα

Μπορεί κάποιος να μου πει σε κώδικα VBA πως μπορώ να πάρω ένα range κελιών?Δηλαδή έχω 2 στήλες Α και Β οι οποίες περιέχουν κάποιες γραμμές και θέλω να διαβάζω με ένα for loop το σύνολο των γραμμών και να τα περνάω σε κάποιο query.To πρόβλημα όμως είναι ότι δεν 8α έχω σταθερό σύνολο γραμμών κάθε φορά αλλά θα είναι dynamic.Για παράδειγμα:
Έχω στην αρχή τον πίνακα παρακάτω στις στήλες Α και Β

Α           Β
-------   ----------
data1    data3
data2   data4

Διαβάζω με ένα for loop τις γραμμες π.χ
for row = 1 to 2
process
Next

Ο πίνακας μετά περιέχει π.χ 3 γραμμές δλδ
Α           Β
-------   ----------
data1    data3
data2   data4
data5   data6

Αρα το for loop πρεπει να γινει
for row = 1 to 3
process
Next

Πως μπορώ να πάρω dunamic το Range αν το λεω σωστα των γραμμών δλδ να υπολογίζω αυτόματα το μηκος του πίνακα χωρις να βάζω καρφωτα την τιμή(2,3)?

Office Development

Απ: VBA AND EXCEL

Απ: VBA AND EXCEL

VBA AND EXCEL