jerryeagle

With Sheets("Hoja1").Cells(1, "A") Me.TextBox1.Text = .Value & " " & _ .OffSet(0,1).value & " " & _ .OffSet(0,1).value End With

No entiendo xq B y D

=SI(E2<>""(SI(P2>1,"Debe","Pagado"),"")

Pues Claro, cualquier función que haga referencia a la misma celda que lo contiene advertirá que hace referencia circular, es imposible lo que quieres con funciones, solo con macros: Private Sub Worksheet_Change(ByVal Target As Range) Target.Value =...

Sub CommandButton_Click() 'En los Parentesis pon las celdas q quieras borrar el contenido Range("A3, B3, D3").ClearContents End Sub

En un modulo pega esto: Public Function SumaC(ByVal Valor As String) As Double Dim C() As String, i As Integer C = Split(Valor, ",") For i = 0 To UBound(C) SumaC = SumaC + C(i) Next End Function Sub SumaColumna() Dim r, u As Integer u = Range("A" &...

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