jerryeagle

Si entendí bien seria algo así: For R = 5 To Range("A1").Value + 4 Cells(R, "A").Value = R - 4 Next

Dim Dato as String Dato = ComboBox.Value Dim Busca As Range Set Busca = Range("A:A").Find(Dato,,,XlWhole) If Not Busca Is Nothing Then If Msgbox("El Dato ya existe, Modificarlo?",VbYesNo) = vbYes Then Busca.Value = Dato End If Else Busca.Offset(1,...

Checa este ejemplo: http://www.mediafire.com/?8b87cqwe3rymy91

Sub capturar() If MsgBox("Los datos seran borrados de esta hoja y se almacenaran", vbYesNo) = vbYes Then libre = Sheets("DATOS").Range("A65536").End(xlUp).Row + 1 finfila = ActiveSheet.Range("C47:U47").End(xlUp).Row ActiveSheet.Range("C4:V47").Copy...

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

ActiveCell.Value = CDate(TextBox.Value)

No se cual version de VB estes usando pero parece que es una version .NET y no VB6, yo te recomendaria usar un MaskedTextBox que sin usar nada de codigo hace lo que quieres, solo agrega el Control y en las opciones del mismo en SetMask, Usa la...

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....

Pon el código que usas para revisarlo

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....