Como puedo copiar con un botón en un formulario, lod Datos que se ecuentran en
Pregunta Como salvar con un botón de un for, ulario en dos hojas Excel, y ademoas que me cuente en ID pero…
Tengo un fprmulstio y wuiero lod dstod de Textbox copiarlos en dos hojas, existe una condiciom para la hoja 2 y es que cuando aparezca la palabra ZWL y la palabra WZL Si los datos Länge no deben aparecer en la hoja 2. En la hoja 1 debe aparecer todo. Todo eso funciona para la hoja 2 pero desde que introduci la condicion I wn la hoja 1 solo se Copia una linea y cuandointroduzcos otros valores de ZWL se coloca en esta linea. Pero no baha es decir se sobreescriben en esa linea, además no se coloca ningun Numero continuo en Id de las dos Tablas .
Acontinuacion te envio ls Fotos y codicos. Con el boton Speicher se deben copiar los datos de esa linea en las dos hojas. Ahi te envio Foto.
Cuando aparezca las palabras ZWLy ZWL SI en ese TextBox todo debe copiarse en la hoja 1pero no en la hoja 2
Ahi te envio fpts < codigo que hice. Sin el If todo funciona en la hoja 1 nemos la numeracion
En resumen lo que quiero es copiar con el botos Speicher en dos hojas pero con la condición que cuando aparezca em el texbox16 ZWL, o ZWL todo se copie en la hoja 1 pero no en la 2 y además que me cuente las filas en la columna 1d
1 Respuesta
Debes utilizar 1 variable diferente para el nro de fila en cada hoja. Eso te lo comenté en la consulta anterior.
Ahora, en el código, estás enviando a la 2da hoja (FERTIGUNGSAUFTRAG_St_Bu) la siguiente información:
a) Si TextBox16 = ZWL, envías espacio o vacío a las celdas C, D, E y F
b) Si TextBox16 = ZWL Si, envias espacio o vacío a las celdas C, F, D solamente. Falta E
c) Si no se trata de ninguno de estos valores se envían todos los datos.
Pero enviar vacío solo justifica si se trata de modificar celdas donde quieras borrar su contenido anterior. Sino utiliza estas instrucciones donde se evalúa el texto y según eso se pasa o no:
If TextBox16 <> "ZWL" And TextBox16 <> "ZWL Si" Then
Sheets("FERTIGUNGSAUFTRAG_St_Bu").Range("C" & Bos_Satir).Value = TextBox16.Text
Sheets("FERTIGUNGSAUFTRAG_St_Bu").Range("D" & Bos_Satir).Value = TextBox2.Text
Sheets("FERTIGUNGSAUFTRAG_St_Bu").Range("F" & Bos_Satir).Value = TextBox14.Text
Sheets("FERTIGUNGSAUFTRAG_St_Bu").Range("E" & Bos_Satir).Value = TextBox17.Text
End If
¡Gracias! Muy gentil de tú parte por avisarme, me había desilusiado, pero me has levantado la estima nuevamente
Que tengas un buen fin de semana
Eusebio
