Salve galera.
Na janela de código VBA eu gostaria de copiar uma coluna (parte do código na vertical) para colar em outro parte do código;
Ex:
Me.TXT_VFATAL_201 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '201'"), 0) ' Soma a quantidade de Vítima Fatal na SP 201 (se não houver valor exibe 0
Me.TXT_VFATAL_225 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '225'"), 0) ' Soma a quantidade de Vítima Fatal na SP 225 (se não houver valor exibe 0
Me.TXT_VFATAL_328 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '328'"), 0) ' Soma a quantidade de Vítima Fatal na SP 328 (se não houver valor exibe 0
Me.TXT_VFATAL_332 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '332'"), 0) ' Soma a quantidade de Vítima Fatal na SP 332 (se não houver valor exibe 0
Nesse caso eu copiaria somente a coluna abaixo (e não as linhas completas);
201
225
328
332
Não sei se é possível, tentei de várias formas e não consegui.
Valew.
Na janela de código VBA eu gostaria de copiar uma coluna (parte do código na vertical) para colar em outro parte do código;
Ex:
Me.TXT_VFATAL_201 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '201'"), 0) ' Soma a quantidade de Vítima Fatal na SP 201 (se não houver valor exibe 0
Me.TXT_VFATAL_225 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '225'"), 0) ' Soma a quantidade de Vítima Fatal na SP 225 (se não houver valor exibe 0
Me.TXT_VFATAL_328 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '328'"), 0) ' Soma a quantidade de Vítima Fatal na SP 328 (se não houver valor exibe 0
Me.TXT_VFATAL_332 = Nz(DSum("Vitima_Fatal", "cs_Acidente_por_Data_Digitada", "Rodovia = '332'"), 0) ' Soma a quantidade de Vítima Fatal na SP 332 (se não houver valor exibe 0
Nesse caso eu copiaria somente a coluna abaixo (e não as linhas completas);
201
225
328
332
Não sei se é possível, tentei de várias formas e não consegui.
Valew.