VBA Stuck after certain loop

by

Hi Please find the below code , This is working fine at my end.

Sub so()
lRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
lRow1 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ThisWorkbook.ActiveSheet.Range("E1").AutoFilter Field:=2, Criteria1:=""
ThisWorkbook.ActiveSheet.Range("D1:D" & lRow).SpecialCells(xlCellTypeVisible).Copy       Range("J1")
ThisWorkbook.ActiveSheet.Range("B1:B" & lRow1).SpecialCells(xlCellTypeVisible).Copy Range("K1")
Selection.AutoFilter
End Sub

More Related Contents:

  1. vba excel: how to copy characters from a cell to another
  2. Microsoft Excel ActiveX Controls Disabled?
  3. What is the default scope of worksheets and cells and range?
  4. Convert an entire range to uppercase without looping through all the cells
  5. Are there disadvantages in putting code into Userforms instead of modules?
  6. Save each sheet in a workbook to separate CSV files
  7. Difference between ‘on error goto 0’ and ‘on error goto -1’ — VBA
  8. Excel: How to check if a cell is empty with VBA? [duplicate]
  9. ShowAllData method of Worksheet class failed
  10. Detect if range is empty
  11. Checking if a worksheet-based checkbox is checked
  12. Assign keyboard shortcut to run procedure
  13. Uncheck all checkboxes across entire workbook via CommandButton
  14. return csv file as recordset
  15. VBA workbooks.Close without being prompted to if the user wants to save?
  16. Excel macro -Split comma separated entries to new rows [duplicate]
  17. Get text from clipboard using GetText – avoid error on empty clipboard
  18. Copy a selected range to another worksheet
  19. Benchmarking VBA Code
  20. Excel macro – paste only non empty cells from one sheet to another
  21. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  22. Pointers needed for speeding up nested loop macro in VBA
  23. Display milliseconds in Excel
  24. VBA editor auto-deletes spaces at the ends of lines
  25. Application.Quit command not closing the entire Excel Application
  26. Create hyperlink to another sheet
  27. Trying to open the workbook in separate instance
  28. Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts
  29. How to protect Excel workbook using VBA?
  30. How to get the range of the visible rows after applying an advanced filter in Excel (VBA)

Leave a Comment