Posts by imdkbj

imdkbj · Jul 22nd 2015

Re: Export ListBox contents to new workbook via CommandButton

Answered at cross post!!

imdkbj · Oct 9th 2014

Re: Excel VBA Input Form by Multiple Users

Pls share a sample wb.

imdkbj · Oct 9th 2014

Re: Excel VBA Input Form by Multiple Users

Ok.got your point on the same.i will try the same with alternative & update you soon.

imdkbj · Oct 8th 2014

Re: Excel VBA Input Form by Multiple Users

Hi,

Check this for shared workbook.
http://office.microsoft.com/en…laborate-HP010096833.aspx

& this for last row, column or last cell

http://www.rondebruin.nl/win/s9/win005.htm

http://www.thespreadsheetguru.…-or-last-column-using-vba

imdkbj · Jul 13th 2014

Re: Excel Automatically fill days against date

Welcome...

imdkbj · Jul 13th 2014

Re: Vlookup in userform

In a simple way try this.

Code

Private Sub Txt1_Change()
 Dim abc As Long
  On Error Resume Next
    abc = Txt1.Value
    Txt2.Value = ""
    Txt2.Value = Application.VLookup(abc, Sheet10.Range("B4:C300"), 2, 0)
    On Error GoTo 0
End Sub

imdkbj · Jul 13th 2014

Re: Excel Automatically fill days against date

Change this.

Code

i.Offset(, 1) = Format(i.Value, "DDDD")

imdkbj · Jul 13th 2014

Re: VBA - importing all excel files in subfolders

Nice....

imdkbj · Jul 13th 2014

Re: Excel Automatically fill days against date

Pls check this..

Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lastrow1 As Long, i As Range
If Target.Column <> 1 Then Exit Sub




    With Sheets("Sheet1")
        Lastrow1 = .Range("A" & Rows.Count).End(xlUp).Row
        For Each i In .Range("A2:A" & Lastrow1)
            If i.Value <> "" Then _
                i.Offset(, 1) = Weekday(i.Value, vbUseSystemDayOfWeek)
        Next
    End With
End Sub

Display More

imdkbj · May 31st 2014

Re: Active/Deactivate option buttons based upon check box status

Hi,

If not it help then share the sample file.

Code

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Me.OptionButton1.Enabled = False
    Else
        Me.OptionButton1.Enabled = True
    End If
End Sub

imdkbj · May 31st 2014

Re: Userform textbox_change () error,Not reduming on error

Do it...

[ATTACH=CONFIG]60749[/ATTACH]

imdkbj · May 29th 2014

Re: Filter data and save in new workbook

Check with attached file....

imdkbj · May 12th 2014

Re: Userform, Find Next, Find Previous, Database in separate Worksheet

Quote from CampbellK;713053

Thanks for your help, but I now get a Run-time error. "Application-defined or object-defined error" with the suggested line highlighted. Evidently, I'm still doing something wrong. The "Get Previous" Command button still does nothing unless I'm running it from within the worksheet.

Pls share the sample file.

imdkbj · May 9th 2014

Re: Combine data from multiple workbooks into single worksheet

Hi,

.xlsx extension doesn't store the macro. Yiu have to use either .xlsm or .xlsb :rock:!!!

imdkbj · May 9th 2014

Re: Userform, Find Next, Find Previous, Database in separate Worksheet

Change this

Code

Range("A2").Select 
    ActiveCell.End(xlDown).Select 
    lastrow = ActiveCell.Row

to

Code

lastrow = ws.Range("A2").End(xlDown).Row

Check & confirm.

imdkbj · Apr 17th 2014

Re: Timer reopens workbook when closed

Check it...

Code

Public DNCalc As Date
Sub CallTime()
    Calculate
    DNCalc = Now + TimeValue("00:00:01")
    Application.OnTime DNCalc, "CallTime"
End Sub

Code

Private Sub Workbook_Open()
    CallTime
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime DNCalc, "CallTime", , False
End Sub

imdkbj · Apr 17th 2014

Re: Timer reopens workbook when closed

I will update after test.

imdkbj · Apr 17th 2014

Re: Timer reopens workbook when closed

Check with it....

Put this inside the ThisWorkbook

Code

Private Sub Workbook_Open()
CallTime
End Sub








Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime DNCalcCallTime, False
End Sub

Display More

Put this in a standered code module:

Code

Public DNCalc As Date
Sub CallTime()
    Calculate
    DNCalc= Now + TimeValue("00:00:01")
    Application.OnTime DNCalc, "CallTime"
End Sub

imdkbj · Apr 17th 2014

Re: Recorded code gives Run-Time Error '1004' on playback

Check this..

Code

Range("CB18").FormulaR1C1 = _
        "=((INDIRECT(""_"" & MID(R12C2,3,2) & ""01"") bFor)*RC[-74])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""02"") bFor)*RC[-71])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""03"") bFor)*RC[-68])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""04"") bFor)*RC[-65])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""05"") bFor)*RC[-62])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""06"") bFor)*RC[-59])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""07"") bFor)*RC[-56])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""08"") bFor)*RC[-53])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""09"") bFor)*RC[-50])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""10"") bFor)*RC[-47])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""11"") bFor)*RC[-44])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""12"") bFor)*RC[-41])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""01"") bAct)*RC[-73])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""02"") bAct)*RC[-70])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""03"") bAct)*RC[-67])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""05"") bAct)*RC[-61])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""06"") bAct)*RC[-58])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""07"") bAct)*RC[-55])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""08"") bAct)*RC[-52])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""09"") bAct)*RC[-49])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""10"") bAct)*RC[-46])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""11"") bAct)*RC[-43])+" & _
         "((INDIRECT(""_"" & MID(R12C2,3,2) & ""12"") bAct)*RC[-40])"

Display More

imdkbj · Apr 16th 2014

Re: Recorded code gives Run-Time Error '1004' on playback

Hi,

While debugging with your formula i got this.
[ATTACH=CONFIG]60076[/ATTACH]
Pls explain what you want to do with it.