New to VBA: Block if without end if

See also questions close to this topic

• If a cell change call a macro

  The following code not working - please guide me

  Private Sub worksheet_change(ByVal target As Range)
      Set target = Range("D11")
      If target.value = "Yes" Then
          Call main
      End If
      If target.value = "No" Then
          Call Main2
      End If
  End Sub
  
• VBA code to compare CSV text cells

  I have 2 columns (A&B) filled with CSV texts. Need a code to return the values: present in A but not in B - To be returned in column C and Values present in B but not in A - To be returned in column D Thanks in advance for the help.
• Excel: SafeAs .txt with VBA: Decimal seperator is changed

  I have a problem when saving a worksheet with VBA in Excel.

  I have to Cope a Worksheet into a new workbook and safe that as an .xls with the format actually beeing 42 (so Text).

  I have already red, that I should set the decimal seperator manually to "," , safe with local=True and do not safe before closing.

  The Problem is, that the Document then has no Decimals at all.

  My thougth was, that the local config for decimals is 0 decimals. Is that a thing, or am I missing something?

  My Code:

  Function SafeWorksheetToDesktopAs(Filename, Worksheet As String, Fileformat As Integer)
  
  Dim SavePath    As String
  Dim MLC_Project As String
  Dim strPath     As String
  Dim lCtr        As Long
  Dim Datum       As String
  
  Datum = Format(Now(), "yyyymmdd")
  MLC_Project = Worksheets("Deckblatt").Range("E2")
  strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & MLC_Project & "\" & Datum
  SavePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & MLC_Project & "\" & Datum & "\" & Filename
  
  arrpath = Split(strPath, "\")
  strPath = arrpath(LBound(arrpath)) & "\"
  
  For lCtr = LBound(arrpath) + 1 To UBound(arrpath)
      strPath = strPath & arrpath(lCtr) & "\"
      If Dir(strPath, vbDirectory) = "" Then
         MkDir strPath
      End If
  Next
  
      Sheets(Worksheet).Select
      Sheets(Worksheet).Copy
      ActiveSheet.Cells.Select
      Selection.Copy
      ActiveSheet.Paste
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Application.DecimalSeparator = ","
      Application.ThousandsSeparator = "."
      Application.UseSystemSeparators = False
      ActiveWorkbook.SaveAs Filename:=SavePath, Fileformat:=Fileformat, CreateBackup:=False, Local:=True
      ActiveWorkbook.Close False
  
  End Function
  
• In VBA, How to find a string in another sheet without exact match

  using a variable I need to pick a value and store in variable "str" from sheet4 and search in sheet1. It has to find even it is not match exactly For example, If a str = "ABC123" then it is activate the cell in sheet1 which has the value "ABC12345" I tried to with the below code,

  Sub Find_First()
  Dim FindString As String
  Dim Rng As Range
  Dim ws1 As Worksheet
  Dim ws2 As Worksheet
  Dim ws3 As Worksheet
  Dim ws4 As Worksheet
  
  Set ws1 = Sheets("Sheet1")
  'Set ws1 = ActiveWorkbook.Worksheets(1)
  Set ws2 = Sheets("Sheet2")
  Set ws3 = Sheets("Sheet3")
  Set ws4 = Sheets("Export")
  
  'FindString = InputBox("Enter a Search value")
  FindString = ws4.Range("A1").Value
  ws1.Activate
  If Trim(FindString) <> "" Then
      With Sheets("Sheet1").Range("A:A")
          Set Rng = .Find(What:=FindString, _
          LookIn:=xlValues, LookAt:=xlWhole, _
          MatchCase:=False, _
          SearchFormat:=False)
  
  
          If Not Rng Is Nothing Then
              Application.Goto Rng, True
          Else
              'MsgBox "Nothing found"
          End If
      End With
  End If
  End Sub
  
• Formula for populating data from one sheet to another

  I am trying to create a form that will pull across data from worksheet 1 to Worksheet 2 depending on an answer given on sheet A. So.. Sheet A contains a list of names and dates of birth (columns A&B) column C is the date that person was seen. Column D is a drop down list, depending on the answer selected a "review date" is generated in column E. Work sheet B contains the upcoming months. I want to pull the info from sheet A into Sheet B into the relevant months column depending on the date given in Sheet A, column E.

  There is a sheet 3 that contains the lists and I have included a list of the months. I managed to get it to work for the first month using the following formula: IF('18-19'!$L3='Lists '!$K$1,'18-19'!A2:A31," ") but for some reason I can't replicate it for any of the other months. Help and advice very much welcome, thanks in advance
• Date format not changed in excel

  I am not able to change the date format in excel. I know this is very basic but somehow it's not working.

  Following are the dates:

      04/30/1980
  07/22/1991
  01/01/2018
  03/22/1979
  02/22/1989
  04/28/1987
  08/19/1974
  05/07/1971
  12/14/1991
  01/01/1988
  03/09/1985
  05/11/1992
  05/23/1989
  

  I want to convert these into something like 14-March-2012 format.

  I changed the date format but it has zero effect. Please let me know where am I getting wrong? How do I solve this?