Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.01 seconds.

  1. Re: Do i need Vlookup or Indirect or something else?

    One more option

    =INDEX(Sheet1!$A$2:$D$5;MATCH($B$1;Sheet1!$A$2:$A$5);ROW()-1)
  2. Replies
    4
    Views
    34

    Re: Eliminate #DIV/0! with IFERROR

    Glade we Gould help
    Be happy
  3. Replies
    4
    Views
    34

    Re: Eliminate #DIV/0! with IFERROR

    What about

    =IF(C108<>0,(E108-C108)/C108,"")
  4. Re: Need help with a Match / Vlookup type formula

    =VLOOKUP("*"&"val"&"*",data,1,FALSE)


    =VLOOKUP("*"&Sheet2!A1&"*",data,1,FALSE)
  5. Re: Importing multiple excel files into one spreadsheet

    With .Sheets("Baseload")
    as well
  6. Replies
    5
    Views
    207

    Re: Loop required for a macro

    Hi
    The code working Ok

    Sub test()
    Dim c As Long ' may be missing if Option Explicit
    For c = 4 To 10 Step 2 'adjust as neeed
    Range(Cells(8, c + 1), Cells(14, c + 1)).Value = Range(Cells(1,...
  7. Replies
    4
    Views
    175

    Re: Pull Data Based On Header

    Hi
    Fazz formula is Ok but maybe

    =$A$1&IF(LEN(B2)>0;","&$B$1;"")&IF(LEN(C2)>0;","&$C$1;"")
  8. 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,...
  9. 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
  10. Replies
    9
    Views
    225

    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)
    ...
  11. Replies
    9
    Views
    225

    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),...
  12. Replies
    4
    Views
    136

    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
  13. Re: if formula not working and showing false result

    Deleted
  14. Replies
    4
    Views
    136

    Re: VBA Vlookup help

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

    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
    ...
  16. 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
  17. 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,"")
  18. Re: Concatenate multicoulmns but not display blank coulmns in the total formula

    Try

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

    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
  20. Replies
    22
    Views
    442

    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)...
  21. Replies
    22
    Views
    442

    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))
    ...
  22. Replies
    6
    Views
    178

    Re: Concatenate with Offset

    You are very well come & thank you for the feedback
    Be happy
  23. 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)), ",") _
    & "," &...
  24. Replies
    6
    Views
    178

    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
    ...
  25. Replies
    6
    Views
    178

    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
    ...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4