AccessTr.neT

Tam Versiyon: Formülü makro kaydet ile R1C1 şekline çeviremiyorum.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba değerli arkadaşlar.
Projemde kullandığım formüllerin R[1]C[1] karşılığını makro kaydet yöntemi ile alarak ComboBox1_Change() yordamında kullanmaktayım.
Sizlerden ricam; Fazla mesai sayfasında C4:AG4 hücresinde kullanılan aşağıdaki formülünün R[1]C[1] karşılığını makro kaydet yöntemi ile yapamıyorum.

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
'On Error Resume Next
[A4:AG39].Value = ClearContents
[A1].Value = "=CONCATENATE(PERSONEL!RC[4],"" "",TEXT(" & ComboBox1.Value & "!R[1]C[1],""AAAA YYYY ""),""İCAP MESAİ BİLDİRİM ÇİZELGESİ"")"
[A4:A39].Value = "=IF(" & ComboBox1.Value & "!RC[10]="""",""""," & ComboBox1.Value & "!RC[11])"
[B4:B39].Value = "=IF(RC[-1]="""","""",VLOOKUP(RC[-1],PERSONEL!R[-2]C[-1]:PERSONEL!R[15]C,2,0))"
[C4:AG39].Value =?
[C3].Value = "=" & ComboBox1.Value & "!R2C2"
[D3:AG3].Value = "=" & ComboBox1.Value & "!R2C2+COLUMN(R[-2]C[-3])"
[AH4:AH39].Value = "=SUM(RC[-31]:RC[-1])"
End If
End Sub

Kod:
=EĞER($A4="";"";EĞER(TOPLA.ÇARPIM(--(OCAK!$C$4:$I$34=$A4)*(OCAK!$C$3:$I$3="nöbet")*(OCAK!$A$4:$A$34=C$3))=0;"";EĞER(TOPLA.ÇARPIM(--(OCAK!$C$4:$I$34=$A4)*(OCAK!$C$3:$I$3="nöbet")*(OCAK!$A$4:$A$34<=C$3))=7;8;EĞER(TOPLA.ÇARPIM(--(OCAK!$C$4:$I$34=$A4)*(OCAK!$C$3:$I$3="nöbet")*(OCAK!$A$4:$A$34<=C$3))>7;24;""))))


Konuyu biraz daha açarmısınız örnek vererek dosyayı tekrar ekleye bilirmisiniz.
Konuya dönüş olmadığından, konu taşınmıştır.