jerryeagle

=SI(B1="";A1;B1) usa "," en lugar de ";"

ActiveCell.Value = CDate(TextBox.Value)

Checa este ejemplo y adaptalo Sub InsertaImagen(ByVal Imagen As String) Dim ws As Worksheet Dim Path As String Set ws = ActiveSheet Path = "C:\Jerry\Pics\PCS\" Ws. Shapes. AddPicture Path & Imagen, msoTrue, msoFalse, ActiveCell. Left, ActiveCell....

Checa este ejemplo y adáptalo Sub InsertaImagen(ByVal Imagen As String) Dim ws As Worksheet Dim Path As String Set ws = ActiveSheet Path = "C:\Jerry\Pics\PCS\" Ws. Shapes. AddPicture Path & Imagen, msoTrue, msoFalse, ActiveCell. Left, ActiveCell....

Agrega un modulo y pega esto: Public Cerrar As Boolean Ahora en el evento click del Botón que quieres que cierre Excel pon esto: If MsgBox("Salir de Excel?", vbYesNo) = vbYes Then Cerrar = True: Application.Quit Else Cerrar = False End If En el...

Function Usuario() As String 'Application.Volatile b 'Yo quitaria esta linea TextBox1.Value = Application.UserName 'O como se llame tu TextBox End Function Y lo pones en el evento Click Aunque yo lo pondría en el evento Enter delTextBox

With ActiveSheet

Precisamente acabo de hacer un programa que hace más o menos lo que dices, aunque no busca en las Sub-Carpetas, te pongo el link para que lo bajes, si sabes algo de programación puedo ponerte el código fuente para que modifiques la parte donde busca...

¿En cuál programa? ¿Excel, Visual Basic, cual version? Si es Excel, ¿usas macros? ¿Tienes conocimiento de VBA? ¿Qué tipo de base de Datos es? Excel, Access, SQL server... ¿etc?

Dim ws as WorkSheet For Each ws In Worksheets If ws.Name = "Nombre de Hoja q no quieras eliminar" Then ws.Delete Next