bacter582

Amigo aquí te escribo una posible solución Private Sub CommandButton8_Click() Dim R As Range Dim T As String Dim C As String For i = 1 To Sheets.Count Set R = Sheets(i).Range("A1:SZ50") If Me.Uno.Text = "" Then T = T & "?" Else T = T & Uno.Text If...

Como estas camila, imagino que tienes todo esto en excel. Si es así utiliza este código a ver si te ayuda Private Sub CommandButton1_Click() Dim encontrado As Boolean Dim i As Integer i = 1 encontrado = False While (encontrado = False) If...