Skip to main content

AccessTr.neT


Formülü makro kaydet ile R1C1 şekline çeviremiyorum.

Formülü makro kaydet ile R1C1 şekline çeviremiyorum.

Çözüldü #1
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;""))))

.rar Ornek.rar (Dosya Boyutu: 39,08 KB | İndirme Sayısı: 25)
Son Düzenleme: 14/04/2011, 15:24, Düzenleyen: AhmetSedat.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Formülü makro kaydet ile R1C1 şekline çeviremiyorum. - Yazar: AhmetSedat - 14/04/2011, 14:41
Task