Seria posible con toggle button hacer que los datos de mi userform vayan a otro libro
Tengo el formulario que se muestra y todo excepto los botones y checkboxe que se ven ala izquierda se insertaría en la hoja MKP conjuntamente con una información relacionada en los TextBoxe y Comboboxes, .la hoja MKP es .Select, que debo hacer para que esta información pase a la hoja dos, incluyendo los Optionbuton y Checkboxes. Es decir activo mi Toggle Button . A continuación envío códigos
Necesito lo mismo pero con otros datos pasarlo a la hoja GKP, como seria eso con un toggle button
Private Sub CommandButton1_Click()
Sheets("MKP").Select
ActiveSheet.Unprotect "chevo"
Dim Son_Dolu_Satir, Bos_Satir As Long
If Me.ComboBox1.Value = "" _
Or Me.ComboBox2.Value = "" _
Or Me.TextBox12.Value = "" _
Or Me.TextBox11.Value = "" _
Or Me.TextBox3.Value = "" Then
Call MsgBox("The fields are not complete", vbInformation, "Edit Contact")
Exit Sub
End If
Son_Dolu_Satir = Sheets("MKP").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("MKP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MKP").Range("A:A")) + 1
Sheets("MKP").Range("B" & Bos_Satir).Value = ComboBox1.Value
Sheets("MKP").Range("c" & Bos_Satir).Value = ComboBox2.Value
Sheets("MKP").Range("D" & Bos_Satir).Value = TextBox1.Text
Sheets("MKP").Range("E" & Bos_Satir).Value = TextBox2.Text
Sheets("MKP").Range("F" & Bos_Satir).Value = TextBox3.Text
Sheets("MKP").Range("L" & Bos_Satir).Value = TextBox11.Text
'freigewördene Maschinekapazität
Sheets("MKP").Range("M" & Bos_Satir).Value = TextBox12.Text
'
Sheets("MKP").Range("T" & Bos_Satir).Value = ComboBox3.Value
Sheets("MKP").Range("U" & Bos_Satir).Value = TextBox22.Value
Sheets("MKP").Range("V" & Bos_Satir).Value = TextBox23.Value
Sheets("MKP").Range("W" & Bos_Satir).Value = TextBox24.Value
Sheets("MKP").Range("X" & Bos_Satir).Value = TextBox25.Value
Sheets("MKP").Range("Y" & Bos_Satir).Value = TextBox27.Value
If ToggleButton2.Value = False Then
Application.Visible = False
ToggleButton1.BackColor = &H80FF&
End If
If ToggleButton2.Value = True Then
Application.Visible = True
ToggleButton1.BackColor = &H80FF&
End If
End Sub
Y tengo ese ToggToggleButton2 como encajarlo con los textboxe, comboboxe y la optionbuton para que los datos se vean el GKP y cuando quiera en MKP que es la hoj a principal.
Gracias
Eusebio
' Hoy debo anaizar porque no funciona la divison del texbox 35,36,37,38,39,33 bdebe haber un error ver side división de ceros_
'talvez iguale a Val(TextBox2) * Val(TextBox3) * ComboBox3. Value, puede ser que sea la solucion
If OptionButton18.Value = True Then
Sheets("MKP").Range("O" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AT" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value / 5000 'Komax
ElseIf OptionButton19.Value = True Then
Sheets("MKP").Range("P" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AU" & Bos_Satir).Value = Val(TextBox2)
