Dante Amor

Debes poner la hoja de referencia: Private Sub CommandButton1_Click() Dim xRow As Long xRow = [RandBetween(13,39)] TextBox1 = Sheets("C. FILIACIÓN").Cells(xRow, 2) 'nombre de tu hoja End Sub [Avísame cualquier duda, no olvides la valoración.

Puedes explicar cuál o cuáles sin las condiciones. Si cumplen en dónde poner el 0 y en dónde poner el 1 Explica 2 ejemplos de tu imagen.

Prueba así y comenta: Private Sub TextBox1_Change() Sheets("EB").cells(1, 11) = "ORDEN " & TextBox1.Value End Sub Si es lo que necesitas, no olvides la valoración.

Prueba así: Sub fecha_lote() Dim fecha As String, lote As String Dim anio As String, mes As String, dia As String Dim unifecha As Date Dim fila As Long fila = 2 Do While Cells(fila, 1) <> "" fecha = Mid(Range("A" & fila), 5, 6) lote = Mid(Range("A" &...

Prueba cambiando el parámetro ReadOnly:=False Private Sub MODIFICAR_Click() Dim Fila As Object Dim Ruta As String Dim Archivo As String Dim Libro As Workbook Dim HojaDatos As Worksheet Dim Hoja As String Ruta = "C:\Users\Jorge L. Sosa\Desktop\MIVED\"...

Prueba la siguiente macro. Ahí te puse unos comentarios para que la adaptes a tus necesidades. Sub InsertarFila() 'Por Dante Amor ' Dim sh As Worksheet For Each sh In Sheets Select Case sh.Name Case "Resumen", "Reporte", "etc" 'en estas hojas no se...

Ayudaría si pones lo siguiente: 1. El código para pasar los datos de la hoja al formulario. 2. Cuál color corresponde a cada optionbutton Intenta adaptar lo siguiente: Private Sub CommandButton2_Click() 'traer datos de la hoja al formulario Dim fila...

Supongo que ya tienes el evento change para el combobox1, cuando cambia tu combobox1, en automático cambia tu textbox3. "El proceso seria que el combobox1 vaya cambiando de 1 a 2, a 3, a 4 etc. Hasta llegar a la cantidad que indica "A1"" Utiliza lo...

Prueba con lo siguiente: .List(.ListCount - 1, 4) = Format(Hoja2.Cells(i, 10), "$#,##0.00")

Te paso la macro actualizada: Sub Enviar_Correos() 'Act.Por Dante Amor Dim i As Long, c As Long Dim Email As Object Dim archivo As String For i = 7 To Range("A" & Rows.Count).End(3).Row Set Email = CreateObject("Outlook.Application").CreateItem(0) '...