Yoselin Cabrera

Yoselin Cabrera

 Venezuela @yoselincabrera desde - visto
Preguntar

Preguntas esperando respuesta

Actividad pública reciente

Ha preguntado en el tema en y en 2 temas más

Como puedo enviar solo el url de mi libro excel por email?

Tengo mi libro de excel y quiero enviar solo la url de dicho libro desde excel no se si me explico
Sin respuestas
Ha valorado "Excelente" la respuesta

¿Cómo ponerles limitaciones a una base de datos?

respondió: ¿Cómo ingresas esos datos a la hoja? ¿Con primera fila te refieres a la número uno? ¿Se eliminaría en qué momento, al terminar de ingresar a la fila 101? Abraham Valencia
Voto positivo a la respuesta

Numero de celda automático en excel

respondió: [Hola Si mal no te entendí, usa el evento "SelectionChange" de la hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = Empty Then Exit Sub If Not Intersect(Target, Range("A1:AF40")) Is...
Ha valorado "Excelente" la respuesta

¿Cómo puedo limpiar celdas dependiendo de otra celda?

respondió: Te anexo el código Sub Borrar_BC() 'Por Dante Amor For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value = Empty Then Cells(i, "B").Value = "" Cells(i, "C").Value = "" End If Next End Sub
Ha valorado "Excelente" la respuesta

¿Cómo evitar que se seleccione una celda?

respondió: Como estás te puede interesar ya que estás en el proceso de aprendizaje, algo básico que es como hacer referencia a celdas, filas columnas en vba, dale una mirada tal vez sea útil https://youtu.be/UuyFcJnv5MM https://programarexcel.com descarga...
Ha valorado "Excelente" la respuesta

¿Cómo puedo poner más corto este código?

respondió: Para referenciar toda la columna B, DE y E usa este esta forma: If Sheets("Hoja1").Range("B24") = Empty Then Range("B:B,D:D,E:E").Font.ColorIndex = 2 If Sheets("Hoja1").Range("B24") <> Empty Then Range("B:B,D:D,E:E").Font.ColorIndex = 1 Mira estos...
Ha añadido un comentario en una respuesta de la pregunta

Macro para imprimir rango variable

respondió: Prueba con esta macro y me cuentas: Sub imprimirarea() primera = "B3" ultima = Range("d65000").End(xlUp).Offset(0, 2).Address ActiveSheet.PageSetup.PrintArea = primera & ":" & ultima ActiveSheet.PrintPreview End Sub
Ha empezado a seguir el tema
Ha empezado a seguir a
Ha empezado a seguir a