For i = 2 To rs1.Fields.Count
If (rs2.Fields(i - 2).Type = adDouble) Or (rs2.Fields(i - 2).Type = adInteger) Then
Sheets("Kasa-2").Cells(i, 12).Formula = "=DSUM(" + Chr(i + 63) + "2:" + Chr(i + 67) + CStr(K) + ";" + Chr(34) + rs2.Fields(i - 2).Name + Chr(34) + ";J4:J6)"
End If
Next i
Dsum(VSEÇTOPLA) Komutunu gönderdiğimde hata alıyorum
ama
o satırda göderdiğim stringi başına = koymadan gönderiyorum daha sonra excelden = ekleyince çalışıyor
yardımcı olursanız sevinirim
teşekkürler
If (rs2.Fields(i - 2).Type = adDouble) Or (rs2.Fields(i - 2).Type = adInteger) Then
Sheets("Kasa-2").Cells(i, 12).Formula = "=DSUM(" + Chr(i + 63) + "2:" + Chr(i + 67) + CStr(K) + ";" + Chr(34) + rs2.Fields(i - 2).Name + Chr(34) + ";J4:J6)"
End If
Next i
Dsum(VSEÇTOPLA) Komutunu gönderdiğimde hata alıyorum
ama
o satırda göderdiğim stringi başına = koymadan gönderiyorum daha sonra excelden = ekleyince çalışıyor
yardımcı olursanız sevinirim
teşekkürler