Search:

Type: Posts; User: DanteAmor; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.07 seconds.

  1. Re: Delete rows if cell value is greater than a specific time

    I'm glad to help you. Thanks for the feedback.
  2. Re: Sumproduct Multiple criteria same column

    Welcome to the forum!

    According to your example, what values ​​should be added and what is the expected result?
  3. Re: Copy and automatically save sheets from a workbook to separate workbooks

    Try this



    Sub save_sheets_to_workbook()
    Dim sh As Worksheet, c As Range, sh2 As Worksheet, folder As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set...
  4. Re: How to find a range of words in a list of row?

    Okay, let me know if you have any questions.
  5. Re: Copy and automatically save sheets from a workbook to separate workbooks

    Try this
    The files are saved in the same folder where you have the file with the macro.



    Sub save_sheets_to_workbook()
    Dim sh As Worksheet, c As Range, sh2 As Worksheet
    ...
  6. Re: How to find a range of words in a list of row?

    Thanks Eric for the comments.

    I put the updated macro, also considering that the word may exist at the end of the sentence, followed by the period "."

    Erick, I don't have the TEXTJOIN function,...
  7. Replies
    7
    Views
    120

    Re: IF function with cursor move

    Run this macro:



    Sub en()
    Application.EnableEvents = True
    End Sub
  8. Re: How to find a range of words in a list of row?

    Try this Function



    Function range_of_words(a As String, b As Range)
    Dim c As Range, cad As String
    For Each c In b
    If InStr(1, a, c) > 0 Then cad = cad & c & "|"
    Next
    If cad <>...
  9. Re: SUMPRODUCT Blank Cells with LEFT & RIGHT

    Welcome to the forum!

    Try this array formula:

    {=SUMPRODUCT(LEFT(IF(G3:G100<>"",G3:G100,0),2)+(RIGHT(IF(G3:G100<>"",G3:G100,0),8)))}

    Or this shorter array formula
    ...
  10. Re: Copy and automatically save sheets from a workbook to separate workbooks

    Try this



    Sub save_sheets_to_workbook()
    Dim sh As Worksheet, c As Range, sh2 As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sh = ActiveSheet
    ...
  11. Re: Challenging If/And statement help please

    Welcome to the forum!

    Try this


    <table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold;...
  12. Re: Formatting a label caption as "$##,###.##"

    Ok, the important thing is that it works for you.
  13. Re: Get Nearest value from a range based on a reference cell value

    Another options

    Sheet1
    <table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; "...
  14. Replies
    4
    Views
    136

    Re: VBA - Open PDF file

    Try this



    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim fName As String, lrB As Long
    Cancel = True
    fName = "C:\Users\i ' M\Desktop\PDF\" &...
  15. Replies
    7
    Views
    120

    Re: IF function with cursor move

    Try this



    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'select next row
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
    If...
  16. Re: Formatting a label caption as "$##,###.##"

    That may be because in the cell you have a text, check if in the cell you have a text or a numerical value.
  17. Re: Delete rows if cell value is greater than a specific time

    Hi @Rackette, taking advantage of the Trebor code, I adapted it in my code to work and leave a more compact macro.



    Sub Delete_Rows()
    Dim lr As Long, i As Long, a, r As Range, exists As...
  18. Re: Macro for counting files by date range

    I'm glad to help you. Thanks for the feedback.
  19. Replies
    2
    Views
    63

    Re: Prevent user interrupting Macro ?

    You can put your macro, maybe we can improve it a bit.
  20. Re: Filter Table save as new workbook in same folder

    I'm glad to help you. Thanks for the feedback.
  21. Replies
    7
    Views
    120

    Re: IF function with cursor move

    I'm glad to help you. Thanks for the feedback.
  22. Re: VBA MACRO TO Keep duplicates BASED ON CONDITION (Remove duplicate if the duplicate count of a particular id is greater 12 times

    Hi @★ ayushdadhich11,

    Try the following. I performed a test with 9,000 records and the result is immediate.



    Sub Keep_duplicates()
    Dim sh As Worksheet, ky As Variant, lr As Long, lc As...
  23. Re: Filter Table save as new workbook in same folder

    Try this



    Sub Test()
    Dim sh As Worksheet, c As Range, ky As Variant, wb As Workbook, wPath As String, lr As Long

    Application.SheetsInNewWorkbook = 1
    Application.ScreenUpdating =...
  24. Re: Extracting numbers before and after spaces

    Glad to help you. Thanks for the feedback.
  25. Re: Delete rows if cell value is greater than a specific time

    something in the column other than a date?
    In which row start data?
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4