Pahelp po about VBA EXCel

[&watag]

patulong nman po kase ayus na yung code ko sa tinggin ko kaso ayaw ma lumabas yung msg box taz yaw mag call sa initialize

thanks po sa makatulong.. willing to pay yung kya ng bulsa lang poView attachment 317199View attachment 317199View attachment 317200View attachment 317200View attachment 317201

 

[Aceraiumeko]

Remove mo yung assignment nung sa Msgbox tapos

Use StrComp when comparing string. E.g. If StrComp(string,string,vbTextCompare) = 0

 

[&watag]

Thank you sir, View attachment 317205 sir pwede dagdagan tanung ko. problim ko kase jan pag nilagyan ko ng fill up ung 1-6 dapt ung date ma copy sa excel na 1-6 din kaso pag sa 1 lang nilagyan ko ung date 1-6 parin. panu ba magandang code jan sir. thanks ng marami..

 

[Aceraiumeko]

Kunin mo kung ilang row yung may laman ta's condition lang dun sa pagpiprint.

 

[&watag]

Salamat sir

 

[&watag]

Private Sub CmdSearch_Click()

Dim emptyrow As Long

Sheet1.Activate

'emptyrow = WorksheetFunction.Count(Range("G:G"))

emptyrow = Cells(Columns.Count, "G:G").End(xlUp).Row



If Txts.Value = "" Then
MsgBox ("NO Record Found")
Else

MsgBox ("Record Found")

DTPicker1.Value = Cells(emptyrow, 2).Value
d1.Value = Cells(emptyrow, 3).Value
d2.Value = Cells(emptyrow, 4).Value
d3.Value = Cells(emptyrow, 5).Value
d4.Value = Cells(emptyrow, 6).Value
Txts.Value = Cells(emptyrow, 7).Value
End If


End Sub



sir pa help nman kung panu tamang code sa search thanks