sergei lifschitz

david .. respondió: I. Hola Sergei, soy poco conocedor de este tipo de programas pero quería intentarlo con estas tres aplicaciones por si hubiera suerte. http://www.freefilesync.org http://www.codesector.com/teracopy http://www.backup4all.com/kb/ftp-backup-106.html...

Puedes echar una ojeada al capítulo 28 (página 231) del libro que hallarás en este enlace: http://www.jw.org/es/publicaciones/libros/?contentLanguageFilter=es&pubFilter=yp2&sortBy=1

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = Range("B3").Address Then MIMACRO End Sub Sub MIMACRO() If Cells(3, 2) = "" Then For I = 3 To 4002: Cells(3, I) = "": Next I End Sub