Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: Omnicube
  • Content: Threads
  • Order by date
  1. Omnicube

    Next without For Error

    In the following code, I am getting a next without for error after dropping in the 'If IsNumeric(strSplitter(x)) Then' line Any ideas as to why? The 'Next x' has a corresponding 'For x' Sub ExpandAIM() Dim wb As Workbook Dim ws As Worksheet Dim ws2 As Worksheet Dim lngRowFrom As Long Dim...
  2. Omnicube

    Concatenate Duplicates

    Hi Guys, I am looking to concatenate duplicates in my worksheet. I looked at the concatenate code samples using the search feature, but I was unable to locate anything that directly applied to my situation. Example below: Existing Table Column A Column B 987654321...
  3. Omnicube

    Duplicate Rows (yes I already searched for the answer on the fourms:))

    I coded the below script to have Excel exit a sub if it finds duplicates in a row. However, when it runs, it tells performs the else function for n times there is no duplicate. What I thought it would do is scrub column F for duplicates and display the duplicate message then exit the sub. If...
  4. Omnicube

    Syntax Problem Entering Formula in Cells

    Hello VBA Wizards, I was hoping someone can help me with the an issue I am having with my VBA. I am running the following script: Sub FillRange() Dim RowCount As Integer Range("E2").Select RowCount = Range(Selection, Selection.End(xlDown)).Count Num = "=IF(OR(H2=" & "Closed" &...
  5. Omnicube

    Help Understanding Code

    I need some help understanding this code. I am trying to understand a previous programmers coding and I am only a beginner with VBA coding. Any help is appreciated. Option Compare Database Function UpdateAmounts() As Boolean Dim db As Database Dim tdf As TableDef Dim fld As...

Part and Inventory Search

Back
Top