Juan Cosceri

Juan Cosceri

 9.225 puntos  Argentina @juancosceri desde - visto

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Solicito un macro para Guardar un XLS como TXT delimitado por tab sin comillas en ningún campo.

Te adjunto la Macro solicitada Sub TXTSaver() Set Tool = Workbooks(ActiveWorkbook.Name) SavePath = Tool.Path 'setear Hoja a Guardar Set SaveSH = Sheets("Hoja1") 'Nombre de Archivo SaveName = "ArchivoTXT " & Format(Date, "dd-mm-yyyy hhmmss") & ".txt"...

Ejecutar una macro u otra dependiente de celda activa

Para realizar esto debes incluir la macro como macro de Hoja conforme print abajo Asi mismo te dejo un codigo que te va a funcionar perfectamente Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 Then If Target.Row >= 7 And...
Respuesta en y en 3 temas más a

Macro para copiar fórmulas de fila anterior

Te envío la macro solicitada Debes colocarlo como macro en la hoja que quieres que corra así ante cualquier modificaciónen esa hoja corre la macro y si modifica algún valor de C4: C(LastRow) va a ingresar en el IF Ejemplo de como aplicarlo: Private...

Visual Basic.NET - Texto Vertical en un control button

La Adriano! La sentencia que maneja la direccion del texto es: pevent.Graphics.RotateTransform(90) por lo tanto deberias cambiar el valor () por la direccion que quisieras = 270. Pevent. Graphics. RotateTransform(270) Por favor recuerda valorar la...
Respuesta en y en 2 temas más a

Fórmula para sacar secuencias en excel

Te paso la macro para poder resolver ese problema Tenes que cargarlo como una Macro de Hoja Ingresas a Visual Basic (alt + F11) Seleccionas la hoja correspondiente y ante cada modificacion que hagas en la hoja chequeara la macro. Si el cambio lo...
Respuesta en y en 2 temas más a

Como abrir varias hojas ocultas en un libro de excel

Te paso un Script Deberás setear los nombres de hojas a dejar: Sub Hider() Dim CurrSH As Long Dim i As Long CurrSH = Sheets.Count Do Until CurrSH = 0 'Setea el nombre de la hoja' CSHName = UCase(Sheets(CurrSH).Name) Worksheets(CurrSH).Visible = True...
Respuesta en y en 2 temas más a

Evitar copiar datos en una celda con lista desplegable

Me parece que la única forma de restingirlo es protegiendo la celda, pero en este caso no te serviría por que necesitas que el usuario lo complete. Lo que se me ocurre que podes hacer es cargar una macro en la hoja que chequee lo que colocaron, si es...
Respuesta en y en 3 temas más a

Cómo insertar fórmula según condición

Como estas! Target es el valor de la celda, por lo tanto tienes que agregarle And Target <> "-" Proba con el siguiente script Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target <> "-" Then With...
Respuesta en y en 1 temas más a

No sumar en textbox, si no encuentra datos en listbox

Cristian, buen dia! Te paso la macro para realizar los filtros. Sub FilterDate() 'Written by Juan Manuel Cosceri Dim StartDate As Date Dim EndDate As Date StartDate = Range("a1").Value 'Replace por TextBoxTo EndDate = Range("b1").Value 'Replace por...
Respuesta en y en 1 temas más a

Función sumar.si en Visual Basic

Te envío la macro sujeto a tu solicitud. Por favor recuerda valorar la respuesta! Slds Sub Macro1() ' ' Macro1 Macro ' Set Tool = Workbooks(ActiveWorkbook.Name) Set SH1 = Sheets("Hoja1") LastRow = SH1.Cells(SH1.Rows.Count, "A").End(xlUp).Row...