Visual Basic Thread *merged*

[electronictokwa]

Ampft meron pala nitong thread! Baka puede magpatulong mga sirs kung merong malupit dito sa VBA.

[robertshanepascual]

Ampft meron pala nitong thread! Baka puede magpatulong mga sirs kung merong malupit dito sa VBA.

oras na para magtulungan tayo, wahahahaha! un din kasi ginagawa ko ngayon 

[electronictokwa]

oras na para magtulungan tayo, wahahahaha! un din kasi ginagawa ko ngayon 

Sakto hehe! May ginagawa kasi ako ngaung template sa Excel with saving functionality sa separate sheet (next empty row). Problema ko, merong range sa source na kelangan din copy sa kabilang sheet. Eto ung code ko so far, di pa kasama ung range na dapat ma copy din:

Private Sub CommandButton3_Click() 'save to local database
If Range("B1:B7").Text = "" Then
    MsgBox "No data to save.", vbInformation, "Call Log Form"
Else
Sheets("Database").Activate
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim LR As Long
   
    LR = Sheets("Database").Range("B" & Rows.Count).End(xlUp).Row + 1
    If LR < 6 Then LR = 6
    Sheets("BTO Template").Range("b1:b7").Copy
    Sheets("Database").Range("B" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("A10").Copy
    Sheets("Database").Range("I" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("A19").Copy
    Sheets("Database").Range("J" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("B29").Copy
    Sheets("Database").Range("K" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End If
End Sub

Any thoughts sirs?

[robertshanepascual]

Sakto hehe! May ginagawa kasi ako ngaung template sa Excel with saving functionality sa separate sheet (next empty row). Problema ko, merong range sa source na kelangan din copy sa kabilang sheet. Eto ung code ko so far, di pa kasama ung range na dapat ma copy din:

Private Sub CommandButton3_Click() 'save to local database
If Range("B1:B7").Text = "" Then
    MsgBox "No data to save.", vbInformation, "Call Log Form"
Else
Sheets("Database").Activate
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim LR As Long
   
    LR = Sheets("Database").Range("B" & Rows.Count).End(xlUp).Row + 1
    If LR < 6 Then LR = 6
    Sheets("BTO Template").Range("b1:b7").Copy
    Sheets("Database").Range("B" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("A10").Copy
    Sheets("Database").Range("I" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("A19").Copy
    Sheets("Database").Range("J" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Sheets("BTO Template").Range("B29").Copy
    Sheets("Database").Range("K" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End If
End Sub

Any thoughts sirs?

yung parang V Lookup ba sa excel yung gamit nito? yung mailalagay mo sa kabilang sheet yung ibang info sa kabilang sheet?

[electronictokwa]

yung parang V Lookup ba sa excel yung gamit nito? yung mailalagay mo sa kabilang sheet yung ibang info sa kabilang sheet?

Yep. Naka save yan to the next empty row galing sa first sheet. ang problema ko, meron kasing range sa template na kelangan i-copy din sa kabila along with the "parent" details., ang nangyayari, nagsasave parin sa next empty row, dapat ma detect muna ng next save yung last row na sakop nung copied range bago sya mag append sa next empty row.

[electronictokwa]

yung parang V Lookup ba sa excel yung gamit nito? yung mailalagay mo sa kabilang sheet yung ibang info sa kabilang sheet?

Hindi VLOOKUP, straight copy paste lang talaga.

[Riff_6603]

guys, baka meron sa inyo marunong mag-integrate ng JS sa VB scripting. care to share some tips?

[tonwins11]

Guys, pa help na din.

I'm no comsci nor graduated any computer course. I'm just an enthusiast. Merong ginawa in .frm file format yung kaibigan ko. Nag design siya ng additional tool for MS word. Parang mas integrated "search/find" na tool. Here's my issue, when running the MS word 2007, alt + F11 ako. Then import files which are the .frm na ginawa ng kaibigan ko. Tapos pag na import na, mag re record na ng macro sa word. After recording, view the macro, then edit, dun sa edit, anong code yung dapat i-type para makapa run ko yung form ko? Nakalimutan ko kasi.  Di ko na rin ma contact yung kaibigan ko. Is there something like "Run (file name).frm"