نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إزالة الصفوف استنادا إلى قيمة الخلية في إكسيل؟

لحذف عدة صفوف أو إزالتها بسرعة استنادا إلى قيمة الخلية في إكسيل، قد تحتاج إلى تحديد تلك الصفوف بالكامل التي تحتوي على قيمة خلية محددة أولا، ثم انتقل لإزالتها. يبدو أنه لا توجد طريقة سريعة لحذف الصفوف بناء على قيمة الخلية ولكن باستخدام كود فبا. إليك بعض الحيل السريعة لمساعدتك.

قم بإزالة الصفوف بناء على قيمة خلية واحدة باستخدام دالة البحث والاستبدال

إزالة الصفوف استنادا إلى قيمة خلية واحدة مع التعليمات البرمجية فبا

أزل الصفوف بناء على قيمة خلية أو اثنتين

إزالة الصفوف استنادا إلى قيم خلايا متعددة

تحديد بسرعة صف كامل / عمود من قيمة خلية معينة، ومن ثم حذف المحدد الصف / العمود في سهولة!

Kutools for Excelالصورة Select SpecifiC Cells توفر الأداة المساعدة للمستخدمين إكسيل خيارا سهلا لتحديد الصف بأكمله أو العمود بأكمله إذا كانت قيم الخلايا تطابق قيمة معينة في إكسيل. أسهل وأكثر تميزا للعمل! ميزة كاملة التجربة المجانية 30 يوم!
أد حدد خلايا خاصة حدد أعمدة صفوف كاملة إذا كانت تحتوي على قيمة معينة

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.


السهم الأزرق الفقاعة اليمنى إزالة الصفوف استنادا إلى قيمة الخلية مع ميزة البحث والاستبدال

في إكسيل، يمكنك تطبيق ميزة البحث والاستبدال القوية لإزالة الصفوف استنادا إلى قيمة خلية معينة بسهولة. يرجى القيام بما يلي:

1. حدد النطاق الذي ستزيل فيه صفوف استنادا إلى قيمة خلية معينة، ثم افتح مربع الحوار بحث واستبدال بالضغط على Ctrl + F مفاتيح في وقت واحد.

2. في مربع الحوار بحث واستبدال، يرجى كتابة قيمة خلية معينة (في حالتنا، ندخل سو) داخل ال Find what مربع، وانقر فوق Find All زر. انظر الصورة الأولى أدناه:

3. حدد كل نتائج البحث في أسفل مربع الحوار بحث واستبدال، وأغلق مربع الحوار هذا. (ملاحظة:: يمكنك اختيار واحد من نتيجة البحث، ومن ثم Ctrl + A مفاتيح لتحديد جميع النتائج التي تم العثور عليها. انظر الصورة الثانية أعلاه.)
وبعد ذلك يمكنك رؤية جميع الخلايا التي تحتوي على قيمة معينة يتم تحديدها.

4. انتقل إلى اليمين انقر فوق الخلايا المحددة وحدد Delete من قائمة النقر بزر الماوس الأيمن. ثم تحقق من Entire row الخيار في مربع الحوار حذف ظهرت، وانقر فوق OK زر. الآن سترى كل الخلايا التي تحتوي على قيمة معينة تتم إزالتها. انظر لقطات الشاشة أدناه:

ثم تم حذف صفوف كاملة استنادا إلى قيمة معينة بالفعل.


السهم الأزرق الفقاعة اليمنى إزالة الصفوف استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

مع التعليمات البرمجية فبا التالية، يمكنك حذف الصفوف بسرعة مع قيمة خلية معينة، يرجى القيام بالخطوات التالية:

1. اضغط على Alt + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic for applications نافذة او شباك،

2. انقر Insert > Module، وإدخال التعليمات البرمجية التالية في الوحدة النمطية:

فبا: إزالة صفوف كاملة استنادا إلى قيمة الخلية

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub

3. ثم انقر فوق Run زر لتشغيل التعليمات البرمجية.

4. في مربع الحوار الذي يظهر، يرجى تحديد النطاق الذي ستزيل فيه الصفوف استنادا إلى قيمة معينة، ثم انقر على OK .

5. في مربع حوار آخر، يرجى كتابة القيمة المحددة التي ستزيل الصفوف استنادا إليها، وتنقر عليها OK زر. انظر لقطة الشاشة:

وبعد ذلك سترى تم حذف صفوف كاملة استنادا إلى القيمة المحددة بالفعل.


السهم الأزرق الفقاعة اليمنى إزالة الصفوف استنادا إلى واحد أو اثنين من قيم الخلايا مع كوتولس ل إكسيل

إذا كنت قد قمت بتثبيت Kutools for Excel، في Select Specific Cells ميزة يمكن أن تساعدك بسرعة حذف الصفوف مع قيمة محددة. يرجى القيام بما يلي:

1. حدد النطاق الذي ستزيل صفوف استنادا إلى قيمة معينة، ثم انقر فوق Kutools > Select > Select Specific Cells. انظر لقطة الشاشة:

2. في مربع الحوار "تحديد خلايا محددة"، يرجى التحقق Entire row الخيار، حدد Contains تبدأ من Specific type القائمة المنسدلة، أدخل القيمة المحددة في المربع الأيمن، وانقر فوق Ok زر (انظر الصورة أعلاه).
بعد تطبيق هذه الميزة، سيظهر مربع حوار ويظهر لك عدد الخلايا التي تم العثور عليها استنادا إلى المعايير المحددة. يرجى النقر فوق OK زر لإغلاقه.

3. الآن يتم تحديد صفوف كاملة مع قيمة معينة. يرجى النقر بزر الماوس الأيمن على الصفوف المحددة، وانقر فوق Delete من قائمة النقر بزر الماوس الأيمن. انظر الصورة أدناه:

ملاحظة:: هذا Select Specific Cells ميزة لحذف الصفوف بواسطة واحد أو اثنين من القيم معينة. لحذف الصفوف استنادا إلى قيمتين محددتين، يرجى تحديد قيمة أخرى في Specific type من مربع الحوار تحديد خلايا محددة على النحو التالي لقطة الشاشة هو مبين:

كوتولس ل إكسيل - يتضمن أكثر من 300 أدوات يدوية لبرنامج Excel. تجربة كاملة مجانية 30 اليوم ، أي بطاقة الائتمان المطلوبة! احصل عليه الآن


السهم الأزرق الفقاعة اليمنىإزالة الصفوف استنادا إلى قيم خلية متعددة مع كوتولس ل إكسيل

في بعض الحالات، قد تحتاج إلى إزالة صفوف استنادا إلى قيم خلايا متعددة من عمود / قائمة أخرى في إكسيل. هنا سوف أعرض Kutools for Excel's Select Same & Different Cells ميزة لحلها بسرعة مع سهولة.

1. انقر Kutools > Select > Select Same & Different Cells لفتح مربع الحوار تحديد نفس & خلايا مختلفة.

2. في الافتتاح Select Same & Different Cells مربع الحوار، يرجى القيام على النحو التالي (انظر الصورة):

(1) في Find values in مربع، يرجى تحديد العمود حيث ستجد بعض القيم؛
(2) في According to مربع، يرجى تحديد العمود / قائمة مع قيم متعددة سوف حذف الصفوف على أساس؛
(3) في Based on القسم، يرجى مراجعة Each row الخيار.
(4) في Find القسم، يرجى مراجعة Same Values الخيار.
(شنومك) تحقق من Select entire rows في أسفل مربع الحوار فتح.
ملاحظة:: إذا كان عمودان محددان يحتويان على نفس الرأس، يرجى التحقق من My data has headers الخيار.

3. انقر على Ok زر لتطبيق هذه الأداة المساعدة. ثم يظهر مربع حوار ويظهر عدد الصفوف التي تم تحديدها. فقط انقر فوق OK زر لإغلاقه.

ثم تم تحديد كافة الصفوف التي تحتوي على قيم بين القائمة المحددة.

4. انقر Home > Delete > Delete Sheet Rows لحذف جميع الصفوف المحددة.


السهم الأزرق الفقاعة اليمنىالعرض التوضيحي: إزالة الصفوف استنادا إلى قيم خلية واحدة أو متعددة في إكسيل

في هذا الفيديو، Kutools و كوتولس بلاس تتم إضافة علامات التبويب بواسطة كوتولس ل إكسيل. إذا لزم الأمر ، يرجى النقر ل 30 يوم تجريبية مجانية دون قيود!

Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kaushal · 2 years ago
    very well. Thank you!
  • To post as a guest, your comment is unpublished.
    Bobby · 2 years ago
    Can someone help me...If 3rd column has value 0, then delete all values of corresponding column 1st.
    In this case answer should be the last line only....

    Check MenuName ID
    3149 VNLA MILFLLE 2
    3149 TURKEY PNN 0
    3149 R. BEEF PNN 0
    3149 MIX MOCHA 38
    3150 M.G.R 1/2 0
    3150 THE PEPPE L 0
    3150 MIX SLD 0
    3150 EGGPLANT 0
    3150 STILL WATER 7
    3151 MIX MOCHA 38
  • To post as a guest, your comment is unpublished.
    Amar · 2 years ago
    Thanks for sharing. I am actually looking for a code that doesn't ask user for range but instead selects a specific column say column "A" and runs till the last row of that column. Can you please help..
  • To post as a guest, your comment is unpublished.
    Marion · 2 years ago
    Hi everybody,

    I am wondering what can we do to delete the following (According to the example shown in this page): Soe appears at several date (sept, October... etc). What I would like is to delete the line where Soe is but to keep the line with last date she appeared. In addition, some lines could be in double but I still want to keep it.

    So for example, you have the lines:
    - July 3 /Soe
    - Sep 4 / Soe
    - Sep 4 / Soe
    - Oct 19/ Soe
    - Nov 13 / Soe
    - Nov 13 / Soe

    and what I want to keep is:
    - Nov 13 / Soe
    - Nov 13 / Soe

    [i][b]My real case is:[/b][/i] I have different EAN code and version 1, 2, 3 or 4 and I want to keep the line where the version is the higher.
    e.g.: I have:
    - EAN 1 / Version 1
    - EAN 1 / Version 1
    - EAN 1 / Version 2
    - EAN 1 / Version 2
    - EAN 2 / Version 2
    - EAN 2 / Version 3
    - EAN 2 / Version 3


    and I want to keep:
    - EAN 1 / Version 2
    - EAN 1 / Version 2
    - EAN 2 / Version 3
    - EAN 2 / Version 3


    I am searching since hours and I am completely blocked on this issue.

    Many thanks in advance for your brain and help.

    Best,

    Marion
  • To post as a guest, your comment is unpublished.
    Aju Thoas · 3 years ago
    Hi,

    Thank you this was really helpful. However, there's an error that pops up when I run the codes it says "Object variable or with block variable not set" and it points to " the line DeleteRNG.EntireRow.Delete". Could you please help me with debugging this.

    Thanks.
  • To post as a guest, your comment is unpublished.
    PC · 3 years ago
    I am trying to use this macro in order to delete unused formulas, because excel views blank formula cells as a zero value and will print extra pages. I was hoping when I deleted the unused formulas, when I printed it would only print the pages that had information. This is not the case and I really need help to find a solution. I have tried using this formula and it is not working and prints three extra pages that I do not need even with the extra formulas being deleted.

    Sub selectonly()
    '
    ' selectonly Macro
    '

    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    End Sub
  • To post as a guest, your comment is unpublished.
    NEU · 3 years ago
    thank you so much. That save me a lot of time
  • To post as a guest, your comment is unpublished.
    NC Arch · 4 years ago
    Trying to find a delete Function that will delete entire designated rows automatically, based on certain values or certain text contained in other cell(s), using only automated formulas.
  • To post as a guest, your comment is unpublished.
    Clay · 4 years ago
    How can i delete selected cell that i want based on value that i entered for example :
    A1 B1 C1 D1
    A2 B2 C2 D2
    A3 B3 C3 D3
    A4 B4 C4 D4

    When i entered in some cell for example "2" then 2 row will be deleted from A3:D4. If i entered "1" then 1 row will be deleted from A4:D4. if i entered "3" then 3 row will be deleted from A2:D4
  • To post as a guest, your comment is unpublished.
    Milon · 4 years ago
    Great it work thank you so much
  • To post as a guest, your comment is unpublished.
    Moe · 4 years ago
    Hello, many thanks for the code. But say I want to delete one row containing "Apple". And not all of the rows containing it. Let's just say the last one, or a random one, doesn't really matter, just one. Many thanks in advance! :-)
  • To post as a guest, your comment is unpublished.
    Meredith · 4 years ago
    Just what I needed, thanks! :D
  • To post as a guest, your comment is unpublished.
    JonS · 4 years ago
    Is there anyway to have the value recognize a value that has expired, such as. All rows that show an expiration date within a specific column will be automatically removed and then the rows that were deleted will be filled by moving the rows beneath. Filling gaps.
  • To post as a guest, your comment is unpublished.
    angel baby · 4 years ago
    What a great. thank so all so much. :)
  • To post as a guest, your comment is unpublished.
    DavidGough · 4 years ago
    is it possible to compare two columns and then delete? is in range A3:D3000 if cell A=x and cell B=y then delete row?
  • To post as a guest, your comment is unpublished.
    DavidGough · 4 years ago
    How can I specify the range A3:D3000 (ie. I don´t want the user to select the range)? How can I make the Delete String a cell reference, ex. G1?
  • To post as a guest, your comment is unpublished.
    Joan K · 4 years ago
    Hello and thank you very much for the VBA code. I have one question.

    Is it possible to make the code the way that it is possible to choose several cell values to delete at the same time? For example choose Apple and Emily at the same time and delete them?
    I appreciate you work and looking forward to your response.

    Joan K
  • To post as a guest, your comment is unpublished.
    Victor · 5 years ago
    i have a list of stores in one document. I have a report that returns thousand of lines. the store number is always in Column A. Is there a code/macro that will search the report and delete all columns with store numbers from the store list. thinking a vlookup and "Do While" are needed.
  • To post as a guest, your comment is unpublished.
    alex2 · 5 years ago
    I'd like to delete all rows where column1 = "Apple" AND column3 = "green". please?
    • To post as a guest, your comment is unpublished.
      Finidi · 5 years ago
      Im not sure how to do this using macro's or so, but one option that would do its job just fine is to add an extra colum that tests for the one colum to be "apple" and the other to be "green" and then let it give a simple "yes" or "no" value. than use either of the above options to search for the value "yes" and remove rows based on that instead of 2 seperate values.
  • To post as a guest, your comment is unpublished.
    gabz · 5 years ago
    thank.. it helps me a lot...
  • To post as a guest, your comment is unpublished.
    smj2013 · 5 years ago
    Thank you for the VB Script. I can not wait to try this. Question:Is there anyway to mark the columns for deletion prior to deleting them and/or copy to a separate tab in the workbook? In addition is there a way to run this script run on multiple workbooks/files at one time?
  • To post as a guest, your comment is unpublished.
    Leo · 5 years ago
    Hi,
    Any way to write it to delete a row, with an OR exception? I.e- delete rows that are duplicates, but ignore a certain value. I want to delete duplicates, except where the column in question contains a blank b/c that column doesn't have valid data yet. I ran as you have, but I ended deleting rows with a blank in the column in question, so I can't use it as it is.
    Thanks
  • To post as a guest, your comment is unpublished.
    Tee · 5 years ago
    Hi,
    What is the easiest way to delete rows that do NOT contain "Apple" please?

    Thanks
  • To post as a guest, your comment is unpublished.
    Aleardo · 5 years ago
    Thanks, this is great!
    Quick comment, I tried the find and replace function in excel 2010.
    In order to select all the found results I had to use Ctrl +A instead of Alt + A.
  • To post as a guest, your comment is unpublished.
    Mira · 5 years ago
    Definitely awsome! Appreciate for sharing!!!
  • To post as a guest, your comment is unpublished.
    Joe Nelson · 5 years ago
    I just wanted to say thank you. This worked like a charm.
  • To post as a guest, your comment is unpublished.
    Adam · 5 years ago
    Lets say I put the below code in to delete all of my rows that contain apple but then I want it to continue once that is done and delete all the rows that contain banana? I tried to just duplicate the code but it seems to stop after apple.

    thanks.

    Sub Delete_Rows()
    Dim rng As Range, cell As Range, del As Range
    Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange)
    For Each cell In rng
    If (cell.Value) = "Apple" _
    Then
    If del Is Nothing Then
    Set del = cell
    Else: Set del = Union(del, cell)
    End If
    End If
    Next cell
    On Error Resume Next
    del.EntireRow.Delete
    End Sub
  • To post as a guest, your comment is unpublished.
    H man · 5 years ago
    I get:

    run-time error '13':
    Type mismatch

    Debugging highlights the If (cell.Value) = "FALSE" _
    Then
    section.

    I'm totally lost in MVB, any help would be appreciated.
  • To post as a guest, your comment is unpublished.
    Jim Mc · 5 years ago
    Heartfelt thanks - it's always amusing when the Marketing guy tries to write code, and this info was super helpful. I was unable to get the code to span multiple columns ("AA2:AA3000" works, "AB2:AB3000" works, but "AA2:AB3000" doesn't work. There's no Earth-shattering Kaboom - it just does nothing. I've solved it (amateurishly, I suppose) by running several macros in sequence, but there's probably a more elegant way. Thanks again for your help, Jim (Melville, NY)
  • To post as a guest, your comment is unpublished.
    Claire · 5 years ago
    Hey - thanks so much for the script. I was wondering if you can use wildcards so you can select anything within a cell that matches rather than a specific item? I've tried using ** wildcards but it doesn't seem to do anything. Here is what I have:

    Sub Delete_Rows()
    Dim rng As Range, cell As Range, del As Range
    Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange)
    For Each cell In rng
    If cell.Value Like "*WORDTODELETE*" _
    Then
    If del Is Nothing Then
    Set del = cell
    Else: Set del = Union(del, cell)
    End If
    End If
    Next cell
    On Error Resume Next
    del.EntireRow.Delete
    End Sub
  • To post as a guest, your comment is unpublished.
    Art · 5 years ago
    Bobby, try this, it should get what you want:
    If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
    • To post as a guest, your comment is unpublished.
      April · 5 years ago
      Is there anyway to have the value recognize a value whether is > or = to a certain value?
  • To post as a guest, your comment is unpublished.
    Bobby · 5 years ago
    Any way to modify the If (cell.Value) = "Apple" to include multiple values?
  • To post as a guest, your comment is unpublished.
    Alan · 5 years ago
    Fantastic! That worked a treat, I altered it slightly to suit what I needed but pure genious. Oh VBA Version.