Problem with userform.show false

E

elynoy

Board Regular
Joined
Oct 29, 2018
Messages
160
Office Version
  1. 365
  2. 2021
  3. 2016
Platform
  1. Windows
Hello, Is there another way of using the user form and still be able to edit the excel sheet besides the
Code: 
userform1.show false
?
I get an error when I use that on my code. when I add the False statment it will mess up where the userform data needs to be saved.


thisworkbook code is this:
Code: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)'Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)






Dim ws As Worksheet
'Application.ScreenUpdating = False


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS7:AS32")) Is Nothing Then
sheets("FJaneiro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS48:AS73")) Is Nothing Then
sheets("FFevereiro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS88:AS113")) Is Nothing Then
sheets("FMarco").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate




Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS128:AS153")) Is Nothing Then
sheets("FAbril").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS168:AS193")) Is Nothing Then
sheets("FMaio").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS208:AS233")) Is Nothing Then
sheets("FJunho").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS248:AS273")) Is Nothing Then
sheets("FJulho").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS288:AS313")) Is Nothing Then
sheets("FAgosto").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS328:AS353")) Is Nothing Then
sheets("FSetembro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS368:AS393")) Is Nothing Then
sheets("FOutubro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS408:AS433")) Is Nothing Then
sheets("FNovembro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate


Set ws = ActiveSheet


If Not Application.Intersect(Target, Range("AS448:AS473")) Is Nothing Then
sheets("FDezembro").Activate
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        UserForm1.Show
    End If
ws.Activate
'Application.ScreenUpdating = True
End Sub


and the userform code is this:


Code: 
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = (Application.Height - Me.Height) / 2
Me.Left = (Application.Width - Me.Width - 500)
tbNumero.SetFocus
End Sub


Private Sub CommandButton1_Click()
Dim ws As Worksheet


Application.ScreenUpdating = False
Set ws = ActiveSheet


x = Me.lblRow 'current row
ws.Cells(x, 3).Value = tbNumero
ws.Cells(x, 4).Value = tbNome
ws.Cells(x, 5).Value = tbTelefone
ws.Cells(x, 6).Value = tbTelemovel
ws.Cells(x, 7).Value = tbEmail


Me.Hide


ws.Activate
Application.ScreenUpdating = True


End Sub




Private Sub CommandButton2_Click()
Me.Hide
End Sub


Private Sub CommandButton3_Click()


UserForm1.tbNumero.Value = ""
UserForm1.tbNome.Value = ""
UserForm1.tbTelefone.Value = ""
UserForm1.tbTelemovel.Value = ""
UserForm1.tbEmail.Value = ""
End Sub




Private Sub CommandButton4_Click()
Dim ws As Worksheet


Application.ScreenUpdating = False
Set ws = ActiveSheet


x = Me.lblRow 'current row
ws.Cells(x, 3).Value = tbNumero
ws.Cells(x, 4).Value = tbNome
ws.Cells(x, 5).Value = tbTelefone
ws.Cells(x, 6).Value = tbTelemovel
ws.Cells(x, 7).Value = tbEmail


Me.Hide


ws.Activate
Application.ScreenUpdating = True


End Sub

There are 2 buttons that do the same thing in it.


best regards,
eLy
 
Last edited:

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN
Sort by date Sort by votes
Make the following changes

thisworkbook code

Code: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim hoja As String
    hoja = ""
    If Not Application.Intersect(Target, Range("AS7:AS32")) Is Nothing Then hoja = "FJaneiro"
    If Not Application.Intersect(Target, Range("AS48:AS73")) Is Nothing Then hoja = "FFevereiro"
    If Not Application.Intersect(Target, Range("AS88:AS113")) Is Nothing Then hoja = "FMarco"
    If Not Application.Intersect(Target, Range("AS128:AS153")) Is Nothing Then hoja = "FAbril"
    If Not Application.Intersect(Target, Range("AS168:AS193")) Is Nothing Then hoja = "FMaio"
    If Not Application.Intersect(Target, Range("AS208:AS233")) Is Nothing Then hoja = "FJunho"
    If Not Application.Intersect(Target, Range("AS248:AS273")) Is Nothing Then hoja = "FJulho"
    If Not Application.Intersect(Target, Range("AS288:AS313")) Is Nothing Then hoja = "FAgosto"
    If Not Application.Intersect(Target, Range("AS328:AS353")) Is Nothing Then hoja = "FSetembro"
    If Not Application.Intersect(Target, Range("AS368:AS393")) Is Nothing Then hoja = "FOutubro"
    If Not Application.Intersect(Target, Range("AS408:AS433")) Is Nothing Then hoja = "FNovembro"
    If Not Application.Intersect(Target, Range("AS448:AS473")) Is Nothing Then hoja = "FDezembro"
    '
    If hoja <> "" Then
        Sheets(hoja).Activate                       'activate the sheet
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        [COLOR=#0000ff]UserForm1.lblsheet = Sh.Name[/COLOR]                'name activesheet
        UserForm1.Show [COLOR=#0000ff]False[/COLOR]
    End If
End Sub


In your UserForm create a lbl called lblsheet

And userform code

Code: 
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Top = (Application.Height - Me.Height) / 2
    Me.Left = (Application.Width - Me.Width - 500)
    tbNumero.SetFocus
End Sub
'
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    x = Me.lblRow 'current row
    ws.Cells(x, 3).Value = tbNumero
    ws.Cells(x, 4).Value = tbNome
    ws.Cells(x, 5).Value = tbTelefone
    ws.Cells(x, 6).Value = tbTelemovel
    ws.Cells(x, 7).Value = tbEmail
[COLOR=#0000ff]    Unload Me[/COLOR]
    Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton2_Click()
[COLOR=#0000ff]    Unload Me[/COLOR]
End Sub
'
Private Sub CommandButton3_Click()
    UserForm1.tbNumero.Value = ""
    UserForm1.tbNome.Value = ""
    UserForm1.tbTelefone.Value = ""
    UserForm1.tbTelemovel.Value = ""
    UserForm1.tbEmail.Value = ""
End Sub
'
Private Sub CommandButton4_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    x = Me.lblRow 'current row
    ws.Cells(x, 3).Value = tbNumero
    ws.Cells(x, 4).Value = tbNome
    ws.Cells(x, 5).Value = tbTelefone
    ws.Cells(x, 6).Value = tbTelemovel
    ws.Cells(x, 7).Value = tbEmail
[COLOR=#0000ff]    Unload Me[/COLOR]
    Application.ScreenUpdating = True
End Sub
'
[COLOR=#0000ff]Private Sub UserForm_Terminate()[/COLOR]
[COLOR=#0000ff]    Sheets(lblsheet.Caption).Select[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]
 
Upvote 0
DanteAmor said:
Make the following changes

thisworkbook code

Code: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim hoja As String
    hoja = ""
    If Not Application.Intersect(Target, Range("AS7:AS32")) Is Nothing Then hoja = "FJaneiro"
    If Not Application.Intersect(Target, Range("AS48:AS73")) Is Nothing Then hoja = "FFevereiro"
    If Not Application.Intersect(Target, Range("AS88:AS113")) Is Nothing Then hoja = "FMarco"
    If Not Application.Intersect(Target, Range("AS128:AS153")) Is Nothing Then hoja = "FAbril"
    If Not Application.Intersect(Target, Range("AS168:AS193")) Is Nothing Then hoja = "FMaio"
    If Not Application.Intersect(Target, Range("AS208:AS233")) Is Nothing Then hoja = "FJunho"
    If Not Application.Intersect(Target, Range("AS248:AS273")) Is Nothing Then hoja = "FJulho"
    If Not Application.Intersect(Target, Range("AS288:AS313")) Is Nothing Then hoja = "FAgosto"
    If Not Application.Intersect(Target, Range("AS328:AS353")) Is Nothing Then hoja = "FSetembro"
    If Not Application.Intersect(Target, Range("AS368:AS393")) Is Nothing Then hoja = "FOutubro"
    If Not Application.Intersect(Target, Range("AS408:AS433")) Is Nothing Then hoja = "FNovembro"
    If Not Application.Intersect(Target, Range("AS448:AS473")) Is Nothing Then hoja = "FDezembro"
    '
    If hoja <> "" Then
        Sheets(hoja).Activate                       'activate the sheet
        UserForm1.tbNumero = Cells(Target.Row, 3)
        UserForm1.tbNome = Cells(Target.Row, 4)
        UserForm1.tbTelefone = Cells(Target.Row, 5)
        UserForm1.tbTelemovel = Cells(Target.Row, 6)
        UserForm1.tbEmail = Cells(Target.Row, 7)
        UserForm1.lblRow = Target.Row
        [COLOR=#0000ff]UserForm1.lblsheet = Sh.Name[/COLOR]                'name activesheet
        UserForm1.Show [COLOR=#0000ff]False[/COLOR]
    End If
End Sub


In your UserForm create a lbl called lblsheet

And userform code

Code: 
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Top = (Application.Height - Me.Height) / 2
    Me.Left = (Application.Width - Me.Width - 500)
    tbNumero.SetFocus
End Sub
'
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    x = Me.lblRow 'current row
    ws.Cells(x, 3).Value = tbNumero
    ws.Cells(x, 4).Value = tbNome
    ws.Cells(x, 5).Value = tbTelefone
    ws.Cells(x, 6).Value = tbTelemovel
    ws.Cells(x, 7).Value = tbEmail
[COLOR=#0000ff]    Unload Me[/COLOR]
    Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton2_Click()
[COLOR=#0000ff]    Unload Me[/COLOR]
End Sub
'
Private Sub CommandButton3_Click()
    UserForm1.tbNumero.Value = ""
    UserForm1.tbNome.Value = ""
    UserForm1.tbTelefone.Value = ""
    UserForm1.tbTelemovel.Value = ""
    UserForm1.tbEmail.Value = ""
End Sub
'
Private Sub CommandButton4_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    x = Me.lblRow 'current row
    ws.Cells(x, 3).Value = tbNumero
    ws.Cells(x, 4).Value = tbNome
    ws.Cells(x, 5).Value = tbTelefone
    ws.Cells(x, 6).Value = tbTelemovel
    ws.Cells(x, 7).Value = tbEmail
[COLOR=#0000ff]    Unload Me[/COLOR]
    Application.ScreenUpdating = True
End Sub
'
[COLOR=#0000ff]Private Sub UserForm_Terminate()[/COLOR]
[COLOR=#0000ff]    Sheets(lblsheet.Caption).Select[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]
Click to expand...

your code still tries to save where it's not supposed to. Since I have the sheets locked to prevent editing it pops up a 1004 error with the error on this line:
Code: 
ws.Cells(x, 3).Value = tbNumero

Thanks for the help

best regards,
eLy
 
Upvote 0
so the error is: when the code has the False, it inputs the userform data into the cells of the sheet where the userform is called. If the False isnt there, the userform puts the data where it should on the right sheet.

I mean, the userform is called in the sheet Escalas on cell range AS7:AS32 and puts the data from the userform into the sheet FJaneiro on these colums 3,4,5,6 and 7. IF the False is there, the userform will put the data on the same sheet (Escalas), the same row where I called the userform on colummns 3,4,5,6 and 7.

best regards,
eLy
 
Upvote 0
When you call the userform with 'false' you are calling it as a non-modal form and allowing the code to continue to execute when the form is being displayed, something that does not happen when the form is modal. So if your code after calling the form depends on user data from that form, then things could indeed change. If you want a non-modal form; but are depending on data from that form, then your code has to somehow take that into account.
 
Upvote 0
Thanks for the reply. I have no idea how to acomplish that. I thought it was some problem with my excel version (2010) . Seems complicated for someone who doesnt know vba. I'll keep it as it is since it's not a big of a deal. I would like to have it like that but i cant figure how to correct it.

thanks everyone,

best regards,
eLy
 
Upvote 0
Hi Ely:
The "False" parameter is used for something different from what you want to do.


The best thing is to put a checkbox in your userform, that way you could ask, if the checkbox is active then keep it in the sheet of the month, if the checkbox is inactive then keep the sheet "scales".


Then, if the sheet is protected, then first unprotect sheet, but this was not in your original comments.

Then you need something like this:

The code should be in your "scales" sheet and not in thisworkbook

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim hoja As String
    hoja = "Escalas"
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("AS7:AS32")) Is Nothing Then hoja = "FJaneiro"
    If Not Application.Intersect(Target, Range("AS48:AS73")) Is Nothing Then hoja = "FFevereiro"
    If Not Application.Intersect(Target, Range("AS88:AS113")) Is Nothing Then hoja = "FMarco"
    If Not Application.Intersect(Target, Range("AS128:AS153")) Is Nothing Then hoja = "FAbril"
    If Not Application.Intersect(Target, Range("AS168:AS193")) Is Nothing Then hoja = "FMaio"
    If Not Application.Intersect(Target, Range("AS208:AS233")) Is Nothing Then hoja = "FJunho"
    If Not Application.Intersect(Target, Range("AS248:AS273")) Is Nothing Then hoja = "FJulho"
    If Not Application.Intersect(Target, Range("AS288:AS313")) Is Nothing Then hoja = "FAgosto"
    If Not Application.Intersect(Target, Range("AS328:AS353")) Is Nothing Then hoja = "FSetembro"
    If Not Application.Intersect(Target, Range("AS368:AS393")) Is Nothing Then hoja = "FOutubro"
    If Not Application.Intersect(Target, Range("AS408:AS433")) Is Nothing Then hoja = "FNovembro"
    If Not Application.Intersect(Target, Range("AS448:AS473")) Is Nothing Then hoja = "FDezembro"
    '
    UserForm1.tbNumero = Sheets(hoja).Cells(Target.Row, 3)
    UserForm1.tbNome = Sheets(hoja).Cells(Target.Row, 4)
    UserForm1.tbTelefone = Sheets(hoja).Cells(Target.Row, 5)
    UserForm1.tbTelemovel = Sheets(hoja).Cells(Target.Row, 6)
    UserForm1.tbEmail = Sheets(hoja).Cells(Target.Row, 7)
    UserForm1.lblRow = Target.Row
    UserForm1.lblsheet = hoja
    UserForm1.Show 'False
End Sub

Code in you Userform:

You must keep the lblsheet and add a checkbox

Code: 
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Top = (Application.Height - Me.Height) / 2
    Me.Left = (Application.Width - Me.Width - 500)
    tbNumero.SetFocus
End Sub
'
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
[COLOR=#0000ff]    If CheckBox1 = True Then[/COLOR]
[COLOR=#0000ff]        hoja = lblsheet.Caption         'save in month sheet[/COLOR]
[COLOR=#0000ff]    Else[/COLOR]
[COLOR=#0000ff]        hoja = "Escalas"                'save in escalas sheet[/COLOR]
[COLOR=#0000ff]    End If[/COLOR]
[COLOR=#0000ff]    Set ws = Sheets(hoja)[/COLOR]
[COLOR=#0000ff]    ws.Unprotect "abc"                  'unprotect sheet[/COLOR]
    x = Me.lblRow                       'current row
    ws.Cells(x, 3).Value = tbNumero
    ws.Cells(x, 4).Value = tbNome
    ws.Cells(x, 5).Value = tbTelefone
    ws.Cells(x, 6).Value = tbTelemovel
    ws.Cells(x, 7).Value = tbEmail
[COLOR=#0000ff]    ws.Protect "abc"                    'protect sheet[/COLOR]
    Unload Me
    Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton2_Click()
    Unload Me
End Sub
'
Private Sub CommandButton3_Click()
    UserForm1.tbNumero.Value = ""
    UserForm1.tbNome.Value = ""
    UserForm1.tbTelefone.Value = ""
    UserForm1.tbTelemovel.Value = ""
    UserForm1.tbEmail.Value = ""
End Sub
 
Upvote 0
You got it wrong DanteAmor.

the code works fine. the sheets are protected but the userform works as it is because the cells arent protected where the userform is supposed to work.

the userform1.show False it's the reason it tried to write on locked cells because the False aparently ignores something. but like i said, I dont need it to work like that. Would be nice to have but it's complicated and I dont know how to fix it so I'll leave it as it is.

Thanks for everything.

Best Regards,
eLy
 
Upvote 0
No problem, if something is useful you can take part of the code to simplify your code.
 
Upvote 0
You must log in or register to reply here.

Similar threads

I
  • Solved
vba Code shows wrong format in cell & autosum also ignors the value
Replies
3
Views
442
RobP
R
J
  • Solved
How to return focus to Userform textbox after process is finished.
Replies
1
Views
956
jvoss
J
C
  • Question Question
Combining rows 3 through 7 into row 2, one row takes a painfully long time with this code. Why?
Replies
2
Views
233
jolivanes
jolivanes
R
  • Solved
Save button
Replies
7
Views
539
Rvittur
R
A
  • Solved
Exclude columns in listbox on userform except first two columns & last column
2
Replies
16
Views
737
abdelfattah
A

Forum statistics

Threads
1,223,231
Messages
6,170,884
Members
452,364
Latest member
springate

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top