VBA & [CODE] Tags

[chirayu]

Hi All,

Was wondering something with regards to VBA & CODE tags.

Majority of my code is indented. However I noticed that when I copy my code to the forum & paste it into the thread. My indents disappear & the code looks like a huge chunk, rather than respective bits and pieces. Does this happen to you & is there a fix other than manual re-edit on forum? Example:

Should be something like this:

Sub Something()

IF Blah = Blah Then
    'Do Something
    Do Until Blah
       If Not IsEmpty(Blah) Then
            'Do Something more
        Else
       End If
   Loop
Else
    'Do Nothing
End If

End Sub

But instead shows up like this:

Sub Something()

IF Blah = Blah Then
'Do Something
Do Until Blah
If Not IsEmpty(Blah) Then
'Do Something more
Else
End If
Loop
Else
'Do Nothing
End If

End Sub

 

[Luke M]

No, it keeps indentations for me just fine...your source code, is it properly indented? You're using basic VBE and copy/paste right, not something like Notepad++ or something else?

 

[chirayu]

I write my code direct in Excel & copy it across.

 

[Deepak]

No, Direct Copy/paste doesn't encounter so far...

Sub get_data()
Dim ws As Worksheet, cFind As Range

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "I want Result like this." Then

    Set cFind = ws.Cells.Find("txn #")
       
        If Not cFind Is Nothing Then
           
            With cFind.CurrentRegion

 

[Deepak]

Rechecked!!

Sub get_data()
Dim ws As Worksheet, cFind As Range

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "I want Result like this." Then

    Set cFind = ws.Cells.Find("txn #")
       
        If Not cFind Is Nothing Then
           
            With cFind.CurrentRegion
                .Offset(1).Resize(.Rows.Count - 1).Copy
            End With

 

[Deepak]

What's the OS/Browser!!

 

[chirayu]

Internet explorer 11
Windows 7 Professional - Office 2007

 

[Deepak]

Sub test()
   
    test
   
    If abc = anc Then
   
    End If
   
   
        Timer
       
       
            Loop
       
1:
 
 
                x = Mid(abc, 1)
               
 
 
End Sub

 

[Deepak]

Sub test()
 
  test
 
  If abc = anc Then
 
  End If
 
 
  Timer
 
 
  Loop
 
1:
 
  x = Mid(abc, 1)
 
 
End Sub

 

[Deepak]

Ok. then

Use Code window by clicking highlighted



paste code in below window!!





Now insert it & reply/save/post

 

[chirayu]

Oh ok so I need to use code window? I usually just use the tags directly by typing them. Works with the window but not direct tags.

Sub SAMPLER()

'Save this as XYZ.CSV & send to ABC@123.com

If MsgBox("Would you like to create the XYZ.csv file", vbYesNo, "") = vbNo Then
    MsgBox "Macro Cancelled. Macro will now exit.", vbCritical, ""
    Exit Sub
Else

Dim DWIP As String
Dim NewWB As String

 

[Deepak]

Yes.Due to incompablity between browser and website.

 

[Deepak]

Yes.Due to incompablity between browser and website.

You can also check the same after loading website in compatibility mode.
Pressing Last button like zigzag in address bar or goto tools menu.