special cells

Hi all, Using Excel 365. I am trying to find the last used column on the worksheet. However, it is consistently returning 11 where I expect 10. I highlighted column 11 to right and cleared all. Still, the code returns 11. What am I missing? Thanks, -w Sub foo() Dim wb As Workbook...

I had some help with some code from this thread ( Macro crashes with button, works perfectly if run line by line ) and have modified it slightly since then, see below. When I run it, it duplicates the number of lines I have but makes them blank. I added a special cells portion to delete the...

Hi all, I'm writing a code that once you click on one button, it: Filters values in a table based on a combobox value (the first column of these filtered value is the name of my sheets) Creates a new blank workbook named from the combobox & another cell in my workbook Select all the sheets...

Hi, I'm currently working on a macro which would allow me to cut & paste filtered data from one sheet to another, then come back to the original sheet and get rid of the blank rows that are left. Originally, I was able to get around the problem of cutting unwanted data by sorting several columns...

Hi All, I'm using the following code to filter the cells and then copy the filtered values. The code seems to be working for Sti but when I use it for Mon, the whole sheet data copies. Kindly help me identify what I'm doing wrong over here This is what my data looks like: <tbody> order_no...

Hello all, I have this that I can't seem to succesfully apply an offset to: Sub CellToComment()Dim Rng As Range Dim WorkRng As Range On Error Resume Next Set NoteRng = Range("S89:S100").SpecialCells(xlCellTypeVisible) For Each Rng In NoteRng Rng.NoteText Text:=Rng.Value 'Need to...