Generé un código bastante grande que funciona para transformar los datos de nómina en un nuevo sistema, pero tengo problemas con mis dos códigos finales antes de incluirlos... Este es uno de ellos. Este presenta un error 'Hacer sin bucle'. Los valores de texto de retorno están allí, ya que todavía necesito entrenar cómo devolver otra columna de manera efectiva (supongo que agregar un rango de resultados podría ayudar con esto, pero un paso a la vez). ¡Cualquier ayuda/orientación sería increíble! :)

 Sub Ceiling_Test() Dim Ref_Ceiling_Row As String Dim Ref_Ceiling_Col As String Dim Ceiling As String Dim Ref_Role_Row As String Dim Ref_Role_Col As String Dim Role As String Dim Counter_Ceiling As Long 'Locate Ref Ceiling Ref_Ceiling_Row = Sheets(1).Range("F2").Row Ref_Ceiling_Col = Sheets(1).Range("F2").Column 'Loop Do If Cells(Ref_Ceiling_Row + Counter_Ceiling + 1, Ref_Ceiling_Col) = "" Then Exit Do Ceiling = Cells(Ref_Ceiling_Row + Counter_Ceiling + 1, Ref_Ceiling_Col) If Ceiling = "General Manager" Then Cells(Ref_Ceiling_Row + Counter_Ceiling + 1, Ref_Ceiling_Col + 30) = "external_uuid:WAV" ElseIf Ceiling = "Director" Then Cells(Ref_Ceiling_Row + Counter_Ceiling + 1, Ref_Ceiling_Col + 5) = "Return corresponding value in AG" ElseIf Ceiling = "Executive Manager" Then Cells(Ref_Ceiling_Row + Counter_Ceiling + 1, Ref_Ceiling_Col + 5) = "Return corresponding value in AF" End If Counter_Ceiling = Counter_Ceiling + 1 Loop 'Locate Ref Role Ref_Role_Row = Sheets(1).Range("H2").Row Ref_Role_Col = Sheets(1).Range("H2").Column 'Loop Do If Cells(Ref_Role_Row + Counter_Ceiling + 1, Ref_Role_Col) = "" Then Exit Do Role = Cells(Ref_Role_Row + Counter_Ceiling + 1, Ref_Role_Col) If Role = "Manager" Or Role = "Employee" Then Cells(Ref_Role_Row + Counter_Ceiling + 1, Ref_Role_Col + 28) = "Home Org Value in O" End If Counter_Ceiling = Counter_Ceiling + 1 Loop End Sub