CSE CLASS

https://drive.google.com/file/d/0B2_4omBn2rsta0wzUGF1SFU0UFU/view?usp=sharing

Web Browser Control in Microsoft Excel

Private Sub CommandButton1_Click()
link_name = Sheets("Sheet1").Range("E1")
Call Sheets("Sheet1").WebBrowser1.Navigate(link_name)

End Sub

Refresh

http://mrvbdude.blogspot.com/2010/05/vbnethit-enter-to-activate-button.html


http://excel.bigresource.com/Userform-Command-buttons-do-not-carry-out-the-code--vdIlj3Ih.html


http://www.familycomputerclub.com/using-listbox-on-userform-ms-excel.html

English sajection

assignment

Tanesfar

Private Sub CommandButton1_Click()
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To LastRow

If Cells(i, 6) = "Today" Then
Range(Cells(i, 1), Cells(i, 5)).Select
Selection.Copy


Workbooks.Open Filename:="C:\Users\robi\Desktop\Client.xlsx"

Dim p As Integer, q As Integer

p = Worksheets.Count

For q = 1 To p


If ActiveWorkbook.Worksheets(q).Name = "robiul" Then
Worksheets("robi").Select
End If

Next q


erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If

Next i


End Sub

excel

https://drive.google.com/file/d/0B2_4omBn2rstYzc4QlZ5aXMwYjQ/view?usp=sharing