private

Good morning, I am in need of combining two Private Sub formulas together. Individually they work, and are as follows: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$2" Then Range("F3").Value = "" End If If Target.Address = "$F$3" Then...

The following code worked fine until some of the computers were upgraded to Windows 10 from Windows 7. The upgraded computers work fine except for this code. The textbox appears and the correct password is entered... then they get "The password was wrong, try again." WHY!!!!!???? I do not...

Hi all, again. If I can't do the simple thing, I will NEVER ever stand a chance at learning how to correctly code. Ok. There's a form that loads when a spreadsheet is clicked; Private Sub Worksheet_Activate() CustForm.Show End Sub This form has 4 command buttons. One of these buttons...

I have a combobox that is populated with al the worksheet names sorted in alphabetical order when the workbook is opened. When a user types in the name of a worksheet(partial match) then they are taken to that sheet. However this doesn't work for the last sheet in the list. Adding another sheet...

Hey Excel Ekspert's on my userform1 i have 8 Label's there Are taking Data from 8 Different's Cell's my Problem is that the Label NOT is Opdating Automatik only when i Click On the Specific Label i Might see the Problem in the Startline of my Code "Private Sub Label71_Click()" But i don't know...

Hello guys, in advance im just learing the passing values between subs (no clue about classes too :) ), also a lazy a.. for declare items. I have a userform with (for example) a simple 2x2 + headline (3x3) crosstable. I have option buttons in the data field. I want to color the x(A or B) and...

I have created a couple of user forms in vba, they work fine until I click anywhere in the user form that is NOT a field, when I click outside of a field, I get the following error: Compile error, Sub or Function not defined. Again, this only happens when I click inside the userform, but not in...

Hi - I'm trying to figure out how to run a line of code if one of three buttons was selected in a shown UserForm1. This is what I have so far: Private Sub CommandButton1_Click() If UserForm1.CommandButton1.TakeFocus******* Then Do This ElseIf UserForm1.CommandButton2.TakeFocus******* Then...

I can't seem to get this to work. I'm wondering if there is a preference that I need to turn on or something, but not sure. Can anyone give me any help? Private Declare PtrSafe Function GetKeyState Lib "USER32" (ByVal nVKey As Long) As Integer I'm getting a Run-Time Error 453: Cannot find DLL...

I use osk.exe on my tablet when using a combobox. If I close the on-screen keyboard application in the midst of typing in the combobox, the combobox gets buggy. I can open the on-screen keyboard again but it will not show what I am typing in the combobox. I open the osk.exe application by...

Good Day Ma'am/Sir. May I ask for help. I cant find a way to display my Header Name in my worksheet in to my listbox un userform, even though i set to true the value of columnhead properties, it only displays cell values. I just want to also appear the header names in the listbox. Here is...

Good Day Ma'am/Sir. I am making a code for which i have a worksheet 2columns Dates,Sales. I want to make a userform which i can choose years in combobox and display and sum all the sales within each month in the list box. I manage to find a tutorial but it has some minor issue. it display only...

I have a code that determines if a window is open or not based on input. It works well for all other programs, but for some reason does not detect when osk.exe is running... Any ideas? I basically put anything into the msgbox in my code between the quotation marks and it will search for a...

I got osk.exe to open but would rather utilize TabTip.exe instead. Any ideas on how this may be achieved? My code for bringing up the osk.exe is shown below. Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal...

Hi, Harder than it should be. My code is below but im being told to remove the forward slash. Please advise the correct way to open my image using the path shown. Thanks Private Sub Flag_Click()ActiveWorkbook.FollowHyperlink Address:=C:\Users\Ian\Z THE REMOTE DOCTOR\database-logo\flagg.jpg...

Hi, I'm not sure how to use Match with an IF statement, or if it's even possible to do. Here is what I am hoping to achieve; Car Type B14:B23 Tax Treatment E14:E23 Private % F14:F23 Input Data B28:B37 I would like the Input Data B28:B37 to be pre-populated depending on what the Tax...

Hi. I have the below code to add data from a userform to a worksheet. Within the userform i also have a listbox which displays the data. Now what i am trying to do is for when a row of data is selected within the listbox, the text box input fields populate matching the data, so when i press...

I have the below code that currently shows all worksheeets in the workbook. I would like to modify it to only show the hidden worksheets. Private Sub ComboBox1_Change() 'Updateby Extendoffice If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select End Sub Private Sub...

I saw this code working perfectly Option Explicit Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type PICTDESC Size As Long...

Hello, I want to insert items in a list and for that I have put a text box inside a frame that I place over the desired item in the list. All this because you cannot put a textbox on a list in Zorder 0. The operative to follow is: First you have to select an item from a list, then press the...