Daniel Espino

¿A qué resultado quieres llegar?

Puedes usar algo así: i = Cells(2, 8).Value i = i + 1 Cells(2, 8).Value = i

Podrías usar algo así: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then If Target.Count > 1 Then Exit Sub Set i = Sheets("B.D.") Set a =...

Sin necesidad de que te compliques con fórmulas puedes poner simplemente en j3: =A1 Cualquier cosa que pongas en a1 lo copiará j3

También puedes usar =SI(--ESTEXTO(A1)=1,"TEXTO","")

Private Sub Worksheet_Change(ByVal Target As Range) If Target(1).Column = 1 Then Target(1).Value = UCase(Target(1).Value) End If End Sub

La única solución que se me ocurre por el momento es con una columna auxiliar separando los meses y después con contar. Si

Puedes poner algo así: Sheets("documentos sin negociacion").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection. ClearContents Pero tienes algunas celdas en blanco en el...

Donde tienes tu botón solo llamas la macro Private Sub CommandButton1_Click() TextBox2 = CoMoneda(TextBox1.Value) End Sub Y esta la dejas como función publica: Public Function CoMoneda(tyCantidad As Currency) As String Dim lyCantidad As Currency,...

Se puede hacer de muchas formas pero como mencionan se necesitan columnas de apoyo, sin embargo puedes usar algo así: Cabe recalcar que el -1 al final solo funciona cuando solo hay una repetición. Pero de acuerdo a tu información cumple el objetivo.