ottosmaniott
09-17-2010, 02:05 PM
Friends,
I'm trying to Write the content of the e9 cell depending on the 'Parametros sheet, on the respective Form (on macro, created so that the workbook fills always the next cell) Column, and the line depending on the number thats on A10. But the thing just doesn't show and I don't know why. I've tryed doing it with if instead of select case and also didn't work.
Would anyone plese be kind enough to help me out. I've also atached the workbook.
linha=line
coluna=column
in portuguese
Here's the Macros:
module1
Sub setdado_cadastro(linha, coluna, dado)
'grava dado nos Parâmetros
Worksheets("Parametros").Cells(linha, coluna).Value = dado
End Sub
Function readdado_cadastro(linha, coluna)
'lê dado da interface
readdado_cadastro = Worksheets("Cadastro de Fornecedores").Cells(linha, coluna).Value
End Function
module2
Sub gravar_cadastro_fornecedor()
Form_a = readdado_cadastro(2, 12)
Form_b = readdado_cadastro(3, 12)
Form_c = readdado_cadastro(4, 12)
Form_d = readdado_cadastro(5, 12)
Form_e = readdado_cadastro(6, 12)
Form_f = readdado_cadastro(7, 12)
Form_g = readdado_cadastro(8, 12)
Form_h = readdado_cadastro(9, 12)
Form_i = readdado_cadastro(10, 12)
selecionaancora = Cells(1, 10)
Select Case selecionaancora
Case 1
Call setdado_cadastro(21, Form_a + 3, Form1) 'gravou nº de formulário
Call setdado_cadastro(30, Form_a + 3, readdado_cadastro(5, 9))
Case 2
Call setdado_cadastro(22, Form_b + 3, Form2) 'gravou nº de formulário
Call setdado_cadastro(31, Form_b + 3, readdado_cadastro(5, 9))
Case 3
Call setdado_cadastro(23, Form_c + 3, Form3) 'gravou nº de formulário
Call setdado_cadastro(32, Form_c + 3, readdado_cadastro(5, 9))
Case 4
Call setdado_cadastro(24, Form_d + 3, Form4) 'gravou nº de formulário
Call setdado_cadastro(33, Form_d + 3, readdado_cadastro(5, 9))
Case 5
Call setdado_cadastro(25, Form_e + 3, Form5) 'gravou nº de formulário
Call setdado_cadastro(34, Form_e + 3, readdado_cadastro(5, 9))
Case 6
Call setdado_cadastro(26, Form_f + 3, Form6) 'gravou nº de formulário
Call setdado_cadastro(35, Form_f + 3, readdado_cadastro(5, 9))
Case 7
Call setdado_cadastro(27, Form_g + 3, Form7) 'gravou nº de formulário
Call setdado_cadastro(36, Form_g + 3, readdado_cadastro(5, 9))
Case 8
Call setdado_cadastro(28, Form_h + 3, Form8) 'gravou nº de formulário
Call setdado_cadastro(37, Form_h + 3, readdado_cadastro(5, 9))
Case 9
Call setdado_cadastro(29, Form_i + 3, Form9) 'gravou nº de formulário
Call setdado_cadastro(38, Form_i + 3, readdado_cadastro(5, 9))
End Select
End Sub
I'm trying to Write the content of the e9 cell depending on the 'Parametros sheet, on the respective Form (on macro, created so that the workbook fills always the next cell) Column, and the line depending on the number thats on A10. But the thing just doesn't show and I don't know why. I've tryed doing it with if instead of select case and also didn't work.
Would anyone plese be kind enough to help me out. I've also atached the workbook.
linha=line
coluna=column
in portuguese
Here's the Macros:
module1
Sub setdado_cadastro(linha, coluna, dado)
'grava dado nos Parâmetros
Worksheets("Parametros").Cells(linha, coluna).Value = dado
End Sub
Function readdado_cadastro(linha, coluna)
'lê dado da interface
readdado_cadastro = Worksheets("Cadastro de Fornecedores").Cells(linha, coluna).Value
End Function
module2
Sub gravar_cadastro_fornecedor()
Form_a = readdado_cadastro(2, 12)
Form_b = readdado_cadastro(3, 12)
Form_c = readdado_cadastro(4, 12)
Form_d = readdado_cadastro(5, 12)
Form_e = readdado_cadastro(6, 12)
Form_f = readdado_cadastro(7, 12)
Form_g = readdado_cadastro(8, 12)
Form_h = readdado_cadastro(9, 12)
Form_i = readdado_cadastro(10, 12)
selecionaancora = Cells(1, 10)
Select Case selecionaancora
Case 1
Call setdado_cadastro(21, Form_a + 3, Form1) 'gravou nº de formulário
Call setdado_cadastro(30, Form_a + 3, readdado_cadastro(5, 9))
Case 2
Call setdado_cadastro(22, Form_b + 3, Form2) 'gravou nº de formulário
Call setdado_cadastro(31, Form_b + 3, readdado_cadastro(5, 9))
Case 3
Call setdado_cadastro(23, Form_c + 3, Form3) 'gravou nº de formulário
Call setdado_cadastro(32, Form_c + 3, readdado_cadastro(5, 9))
Case 4
Call setdado_cadastro(24, Form_d + 3, Form4) 'gravou nº de formulário
Call setdado_cadastro(33, Form_d + 3, readdado_cadastro(5, 9))
Case 5
Call setdado_cadastro(25, Form_e + 3, Form5) 'gravou nº de formulário
Call setdado_cadastro(34, Form_e + 3, readdado_cadastro(5, 9))
Case 6
Call setdado_cadastro(26, Form_f + 3, Form6) 'gravou nº de formulário
Call setdado_cadastro(35, Form_f + 3, readdado_cadastro(5, 9))
Case 7
Call setdado_cadastro(27, Form_g + 3, Form7) 'gravou nº de formulário
Call setdado_cadastro(36, Form_g + 3, readdado_cadastro(5, 9))
Case 8
Call setdado_cadastro(28, Form_h + 3, Form8) 'gravou nº de formulário
Call setdado_cadastro(37, Form_h + 3, readdado_cadastro(5, 9))
Case 9
Call setdado_cadastro(29, Form_i + 3, Form9) 'gravou nº de formulário
Call setdado_cadastro(38, Form_i + 3, readdado_cadastro(5, 9))
End Select
End Sub