Posts by dotchiejack

Crosspost here:https://www.helpmij.nl/forum/s…updaten-in-Sheets-mbv-VBA
Forumrule 4b :Do not cross-post without supplying a link to the duplicate question on the other Forum.

Crosspost here :https://www.excelforum.com/exc…ng-the-macro-quickly.html

Is this what you are looking for?
[ATTACH]n1208874[/ATTACH]

Re: Create Items With user form

Hope this helps
See attached

Re: Create Items With user form

I am working on it, however it is still not that clear to me.
Please note that I am doing this voluntarily, and I have a real Job, so have some patience.

Re: Create Items With user form

It is still not clear, post an example with some example data in all your sheets.
For example you have a ComboBox for the tax rates, but there is no list, column with the taxrates to populate the combobox list.
Please try to post a complete example.

Re: Create Items With user form

I did the catergory userform as example,
I can't do the rest because I don't understand.
your example is not clear enough.
see attached

Re: Convert Excel formula into VBA code

Hi

Quote

because is a userform that is why I want it hard coded

Can you post an example of your file with the userform and some dummy entries. Can't be that hard to code.

Re: Convert Excel formula into VBA code

Hi,
I follow Carim

Quote

Not sure to fully understand your requirement ...

if I read this

Quote

Am trying to convert this formula into vba code

These are your formulas in VBA code

'Expiry last day of the month
ActiveCell.FormulaR1C1 = "=EOMONTH(R[8]C[10],12)"
'Status
ActiveCell.FormulaR1C1 = "=IF(R[8]C[9]<0,""Expired"", IF(R[8]C[9]< 30,""Expiring Soon"", """"))"
'Highlight Red
ActiveCell.FormulaR1C1 = "=R[8]C11=""Expired"""
'Highlight Yellow
ActiveCell.FormulaR1C1 = "=R[8]C11=""Expired"""
 'Days left
ActiveCell.FormulaR1C1 = "=R[8]C[11]-TODAY()"

Hope this will help

Re: Show images in a form (from a folder) 1 by 1 after certain time delay

Thanks for the feedback and :drunk:Cheers

Re: Textbox will highlight red when found duplicate cell value in column

Try

Private Sub CommandButton1_Click()
    Dim bMatch As Boolean
    Dim vVal
    vVal = TextBox1
    bMatch = WorksheetFunction.CountIf(Range("A2:A1000"), vVal) > 0
    If bMatch Then
        TextBox1.BackColor = RGB(255, 0, 0)
        TextBox2.Value = "Duplicate"
        Exit Sub
    Else
        TextBox1.BackColor = RGB(255, 255, 255)
        TextBox2.Value = "Unique"
        lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
        Cells(lastRow + 1, "A") = TextBox1.Value
    End If
End Sub

Re: Copy Worksheet and Paste Values into another Worksheet

Hi LiaStar
Try:

Sub dotchie()
    Application.ScreenUpdating = False
     [copyfield].Copy
     [pastefield].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Make 2 named ranges
(I named them copyfield and pastefield )
See attached as example
(you can hide the sheets)

Re: Enter data into specific worksheet selected in dropdown box on form.

Does something like this helps?
See attached

Re: Unprotect Command Button

Hi,
You can't mask inputbox entries.
You have to use an userform.
In the properties of the texbox you can set a PasswordChar
See my example

Carim, Mike's solution looks a bit overkill to me in this case.

Re: Unprotect Command Button

See if this works for you.

Private Sub CommandButton1_Click()
    On Error GoTo ErrorOccured
    Dim pwd1 As String
    pwd1 = InputBox("Please Enter the password")
    If pwd1 = "" Then Exit Sub
    ActiveSheet.Unprotect Password:=pwd1
   UserForm1.Show
Exit Sub
ErrorOccured:
    MsgBox "Sheets could not be UnProtected - Password Incorrect"
    Exit Sub
End Sub

Re: How to stop OnTime from cycling and Reopening excel

See if this does what you want

Re: How to stop OnTime from cycling and Reopening excel

Use Alt + F11 to open the VBA editor, on the left side you wil see ThisWorkbook (not in a worksheet)
Double click and paste the code there

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Application.OnTime Now + TimeValue("00:00:30"), "SaveWb", , False 
End Sub

Re: How to stop OnTime from cycling and Reopening excel

Under ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnTime Now + TimeValue("00:05:00"), "SaveWb", , False
End Sub

Re: Show images in a form (from a folder) 1 by 1 after certain time delay

See if this works for you.
1. You have to change the path in the first line of coding of module 1 to your needs.
I added some pics as example.
2. Change these with your pics afther testing.
When you changed 1 & 2 you ready to go.

Re: How to create a return button from one sheet to another ?

Hello Xani,
What error do you get?