מחיקת שורות באמצעות VBA

[אלוורדו]

שלום,
הדרך בה בחרתי לביצוע הנ"ל : סינון .
כעת יש לי טבלה המציגה רק את השורות שאני רוצה למחוק.
אם אני בוחר את הטבלה ומוחק - הוא מוחק רק מה שגלוי וזה בסדר.
הבעיה התעוררה כאשר בטבלה אין תאים ריקים :
לאחר סינון ומחיקה - כל השורות נמחקות, למרות שבשלב המחיקה הן מוסתרות ! (לא מבין למה..., אבל לא זו השאלה. למרות שאשמח אם תהיה התייחסות גם לשאלה זו... )

בחרתי לפתור את הבעיה ע"י הוספת התניה, מיד אחרי הסינון, כך :

If IsEmpty(Range("Table1[[#Data],[תאור]]").SpecialCells(xlCellTypeVisible).Value) = True Then

אבל, גם כאשר כל התאים בטווח הנ"ל ריקים - אקסל 'טוען' שהם לא ריקים...(קופץ ל End If)
מה אני מפספס פה ?
תודה
7/2010

 

[ziv98]

אתה מפספס את צירוף הקובץ עם דוגמה...

 

[אלוורדו]

פתרתי את הבעיה, פשוט השתמשתי בפונקציה CountBlank שבודקת שונה מ-0 (במקום ה IsEmpty ), וההתניה 'יושבת' לפני הסינון, וזה עובד מצוין.
אבל בינתיים, נתקלתי בבעיה אחרת ...
יש לי משתנה שמאוחסנת בו כתובת. ואני רוצה לגשת לכתובת הזו בשלב אחר.
הכתובת מזוהה ב MsgBox , אבל לא הצלחתי בשום אופן לבצע בחירה...

Dim rg2 As Range
Set rg2 = ActiveSheet.Range("k11").End(xlDown).Offset(5, 0)
MsgBox rg2.Address

Range..... .Select

אודה למענה (ונדמה וגם מקווה, שהפעם, בניגוד לשאלתי הקודמת..., אני לא מפספס )
תודה מראש

 

[אלוורדו]

עכשיו כבר לא בא לי לצחוק.
rg2 הוא אובייקט מסוג Range , אז הכי טרביאלי (לי) היה לציין על מה - כ range של rg2 ...
ולא rg2.select
זה מזכיר לי את האמירה של חכם חנוכה, ודי לחכימה ברמיזא...
לילה טוב