Click here to edit title

lets learn together

Download


view:  full / summary

Generate CSV

Posted by [email protected] on March 17, 2017 at 11:40 AM Comments comments (0)

Sub Prince_GenerateCSV()

Dim xx As String

Dim MyPATH As String

Dim FileNAME As String

Application.ScreenUpdating = False

Application.DisplayAlerts = False

 

MyPATH = InputBox("Enter the path where you want to keep generated CSV files", "Enter the Path")

 

If MyPATH = vbNullString Then

MsgBox "Command Cancelled, Please retry", vbExclamation, "Command Cancelled"

Exit Sub

End If

 ...

Read Full Post »

Calibration

Posted by [email protected] on March 17, 2017 at 11:25 AM Comments comments (0)

Option Base 1

Sub Automation()

Dim data As Range

Application.DisplayAlerts = False

'Sheets("LookupData").Select

For Each Sheet In ActiveWorkbook.Worksheets

If Sheet.Name = "Summary" Then

Sheet.Delete

End If

Next

 

resp = MsgBox("Have you update severity infomation in Lookup Sheet ?", vbQuestion + vbYesNo, "Please select Appropriate")

If resp = vbYes Then

'------------

 

Sheets("...

Read Full Post »

UserForm-GNRP

Posted by [email protected] on March 17, 2017 at 11:20 AM Comments comments (0)

 

 

Private Sub CmbQC_Enter()

CmbQC.Clear

countqc = Sheets("Misc").Range("D1048576").End(xlUp).Row

For i = 2 To countqc

CmbQC.AddItem Sheets("Misc").Range("D" & i).Value

Next

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Private Sub Frame2_Click()

 

End Sub

 

Private Sub TextBox7_Change()

 

End Su...

Read Full Post »

Userform List Box Concept

Posted by [email protected] on March 17, 2017 at 11:20 AM Comments comments (0)

 

 

Private Sub CmbSubDD_Exit(ByVal Cancel As MSForms.ReturnBoolean)

dd = Val(CmbSubDD): mm = Val(CmbSubMM): yy = Val(CmbSubYY):

If dd <> 0 And mm <> 0 And yy <> 0 Then

CmbPend.Visible = False

Label32.Visible = False

Else

CmbPend.Visible = True

Label32.Visible = True

End If

End Sub

 

 

Private Sub ...

Read Full Post »

Refresh All pivot Table in Workbook

Posted by [email protected] on March 17, 2017 at 11:15 AM Comments comments (1)

Sub RefreshPivots()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

For Each pt In ws.PivotTables

pt.RefreshTable

Next pt

Next ws

 

End Sub

 

Chart on MouseOver

Posted by [email protected] on March 17, 2017 at 11:15 AM Comments comments (0)

Public Function highlightSeries(seriesName As Range)

 

If Range("valSelOption") <> seriesName.Value Then Range("valSelOption") = seriesName.Value

 

End Function

 

Send Email Through VBA

Posted by [email protected] on March 17, 2017 at 11:15 AM Comments comments (0)

Option Explicit

 

Sub CreateEmail()

 


Dim sSubject As String

Dim sSend_From As String

Dim sSend_To As String

Dim sCc As String

Dim sBcc As String

Dim sBody As String

Dim objMail_Object As Object

Dim objMail_Single As Object

Dim rDist As Range

Dim wbDash As Workbook

Dim sTempFilePath As String

Dim sTempFileName As String

Dim sFileExt As String

 

Wit...

Read Full Post »

Autosum

Posted by [email protected] on May 7, 2015 at 11:45 AM Comments comments (0)

Sub Autosum_generated()

'Dim x As Range

Dim lr As Integer

lr = Range("A65536").End(xlUp).Row

For j = lr To 3 Step -1

If Range("A" & j).Value <> Range("A" & j - 1).Value Then

Range("A" & j).EntireRow.Insert shift:=xlDown

End If

Next

 

Range("D1").Select

ActiveSheet.UsedRange

 

lr1 = Range("D65536").End(xlUp).Row

 

Set tot = Range("D2:D" & lr1)

...

Read Full Post »

Macro

Posted by [email protected] on May 7, 2015 at 11:45 AM Comments comments (0)

Sub ListDownName()

i = 1

For Each sh In ActiveWorkbook.Worksheets

Range("A" & i).Value = sh.Name

i = i + 1

Next

End Sub

 

Sub Browsefileand_listdowntheirname()

 

With Application.FileDialog(msoFileDialogOpen)

.AllowMultiSelect = True

.Show

For i = 1 To .SelectedItems.Count

yy = .SelectedItems(i)

Range("B" & i).Value = Ext...

Read Full Post »

File System in VBA - Macro

Posted by [email protected] on June 5, 2014 at 10:10 AM Comments comments (0)

Excel File can be downloaded from below path

https://drive.google.com/file/d/0B1XLV4eCY-dcbHFSbi1mNWk1d1k/edit?usp=sharing

Video File can be downloaded from below path

https://www.youtube.com/watch?v=ouJ8O5nhMEg


Rss_feed