Search results

As usual with Marc L much cackling little egg

Hi Marc can you explain a bit more what you mean.

How can i change this code so it works for jpg and gif? If Dir(Path & Cell & ".jpg") <> "" Then With .Pictures.Insert(Path & Cell & ".jpg") Thanks in advance

Try this. This will delete all rows below the last value in column B Sub Belle() Dim lastRow As Long Dim row As Long Dim temp As String ' insert your sheet name here With ThisWorkbook.Worksheets("Delete.Rows") lastRow = .Cells(.Rows.Count, "A").End(xlUp).row ' you can change the starting...

Problem 1: In the properties set tabstop on false and locked on true where applicable. Problem 2: Use a real table instead of Defined Name Range for your mastersheet then the Formulas will be added automaticly.

A to I are not rows but columns. Your question is not clear.

I looked at your questions, if you give me a few days, I gonna rework your userform.

Are there a lot of lower case textboxes.

You can try that, but instead of the Change event use the AfterUpdate event.

This is correct.

Yes, this is correct

Yes, indeed. Don't forget to add End Sub at the end.

Yes it does.

Off topic All this TextPrefix = "" TextE10Status = "" TextSuffix = "" TextShopOrderNumber = "" TextEmailSubjectLine = "" TextNotes = "" TextStage = "" TextStartDate = "" TextStageDue = "" TextEndDate = "" TextProposalNumber = "" TextSalespersonInitials = "" TextSalesperson = ""...

Yes it is possible, but you need to use a class module In the class module Public WithEvents MyTBoxes As MSForms.TextBox Private Sub MyTBoxes_Change() With Me.MyTBoxes .Text = UCase(.Text) End With End Sub Then in your Userform code Dim colTBoxes As New Collection Private Sub...

Add this code in the your data entry form. (masterform) Private Sub TextShopOrderNumber_Change() TextShopOrderNumber.Text = UCase(TextShopOrderNumber.Text) End Sub

A starter. Sub Belle() Dim i As Long For i = Cells(Rows.Count, 12).End(xlUp).Row To 2 Step -1 If Cells(i, 12) = "Review" Then Range("A" & i & ":AW" & i).Copy Sheets("Review Sheet").Cells(Rows.Count, 1).End(xlUp).Offset(1) Cells(i, 12).EntireRow.Delete...

I don't get it with 2 linses of code,your problem is solved,why not VBA?

https://www.excelhow.net/deleting-non-highlighted-cells.html

Like this? Sub clearrng() For Each c In ActiveSheet.Range("F3:V16") If c.Interior.ColorIndex = xlNone Then c.ClearContents Next c End Sub See example

Glad to help and thanks for the feedback:)

Like this?

Glad to help.:)

I couldn't find nothing wrong, just make your sheets visible, click on the chart and hide your sheets again.

Does this one works?