Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.01 seconds.

  1. Re: replace the comas in strings that separate substrings to pipes using VBA

    Ops
    Rather


    Sub test() Dim x As Variant
    Dim i
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    x = Join(Split(Join(Split(Cells(i, 2), ", "), "|"), "- "), "|")
    Cells(i,...
  2. Re: replace the comas in strings that separate substrings to pipes using VBA

    Hi
    Data in column A starts A1
    Result in column B

    Sub test()
    Dim x As Variant
    x = Join(Split(Cells(1, 1), ", "), "|")
    Cells(1, 1).Offset(, 1) = x
    End Sub
  3. Replies
    9
    Views
    221

    Re: Macro for delimited data

    Sub t2()
    Dim a As Variant
    Dim fun As String
    Dim WF As WorksheetFunction
    Set WF = Application.WorksheetFunction
    x = Split(Range("Q2"), ";")
    ReDim a(1 To UBound(x), 1 To 2)
    ...
  4. Replies
    9
    Views
    221

    Re: Macro for delimited data

    May be

    Sub t2()
    Dim a As Variant
    x = Split(Range("p2"), ";")
    ReDim a(1 To UBound(x))
    For i = 0 To UBound(x) - 1
    a(i + 1) = Trim(Mid(Mid(x(i),...
  5. Replies
    4
    Views
    130

    Re: VBA Vlookup help

    Sub TEST()
    For Each C In [A1:B4]
    If C = [D1] Then
    C.Offset(, 1) = C.Offset(, 1) + [E1].Value
    End If
    Next C
    End Sub
  6. Re: if formula not working and showing false result

    Deleted
  7. Replies
    4
    Views
    130

    Re: VBA Vlookup help

    You are very well come and thank you for the feedback
    Be happy
  8. Replies
    4
    Views
    130

    Re: VBA Vlookup help

    Hi
    What about

    Sub TEST()
    With Range("A1:B4")
    For Each C In Range("A1:A4")
    If C = Range("d1") Then
    C.Offset(, 1) = C.Offset(, 1) + Range("e1").Value
    ...
  9. Re: Concatenate multicoulmns but not display blank coulmns in the total formula

    You are very well come and thank you for the feedback
    Be happy
  10. Re: Concatenate multicoulmns but not display blank coulmns in the total formula

    No
    Just put the formula as it is
    =A2&"."&B2&IF(C2<>"","."&C2,"")&IF(D2<>"","."&D2,"")
  11. Re: Concatenate multicoulmns but not display blank coulmns in the total formula

    Try

    E2=A2&"."&B2&IF(C2<>"","."&C2,"")&IF(D2<>"","."&D2,"")
  12. Replies
    22
    Views
    439

    Re: Return all cells matching criteria

    Well, I see
    In the code provided the data supposed to be in column A
    If Not, You will get the error you mentioned
  13. Replies
    22
    Views
    439

    re: Return all cells matching criteria

    Open your workbook in Excel.
    Press Alt + F11 to open Visual Basic Editor (VBE).
    Right-click on your workbook name in the "Project-VBAProject" pane (at the top left corner of the editor window)...
  14. Replies
    22
    Views
    439

    re: Return all cells matching criteria

    Hi

    Sub test()
    Dim a As Variant
    Dim i, k, m
    m = InputBox("Type memory you're looking for")
    a = Application.Transpose(Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row))
    ...
  15. Replies
    6
    Views
    177

    Re: Concatenate with Offset

    You are very well come & thank you for the feedback
    Be happy
  16. Re: Formula or code for combines numbers with comma

    Hi

    Sub test()
    Dim lr, a, b, x
    lr = Cells(Rows.Count, 1).End(xlUp).Row - 1
    Cells(2, 3) = Join(Application.Transpose(Cells(2, 1).Resize(lr)), ",") _
    & "," &...
  17. Replies
    6
    Views
    177

    Re: Concatenate with Offset

    Sub test()
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For j = lr To 1 Step -1
    Cells(j, 1).Activate
    With ActiveCell
    ...
  18. Replies
    6
    Views
    177

    Re: Concatenate with Offset

    Hi
    May be?

    Sub test()
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For j = lr To 1 Step -1
    Cells(j, 1).Activate
    With ActiveCell
    ...
  19. Replies
    6
    Views
    177

    Re: Concatenate with Offset

    Hi
    Just as a start is this what you are aiming

    Sub test()
    With ActiveCell
    .Offset(1).Resize(29).EntireRow.Insert
    .Offset(, 2).FormulaR1C1 = "1"
    .Offset(,...
  20. Replies
    13
    Views
    177

    Re: Sum with Indirect

    Oh
    Yes, sorry miss typing
  21. Replies
    13
    Views
    177

    Re: Sum with Indirect

    Hi
    Try


    ActiveCell.Formula = "=SUM(INDIRECT(""Review Tab!K:k""))"
  22. Re: Going Blind - what do I need vlookup - index match?

    Hi
    If I understand
    =VLOOKUP($A$2:$A$4,Sheet2!$A$2:$B$4,2,0)

    Or
    =INDEX(Sheet2!$B$2:$B$4,MATCH(Sheet1!$A$2:$A$4,Sheet2!$A$2:$A$4,0))
  23. Re: Moving duplicate row data into new columns

    Hi
    Ignore the code in post#5
    and please try

    Sub test()
    Dim a As Variant, i, x1, k, z, itm, itmm
    Dim d As Object
    a = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 3)...
  24. Re: Moving duplicate row data into new columns

    Hi
    Try

    Sub test()
    Dim a As Variant, lr, i, x, s, k, itm, itmm
    Dim d As Object
    a = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 3)
    With...
  25. Thread: Column to row

    by mohadin
    Replies
    15
    Views
    625

    Re: Column to row

    Hi
    Try this come in a normal module

    Sub test()
    Dim a As Variant, i, itm, x
    a = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 2)
    With...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4