Otomatik Formül ve Sayfadan Ekleme

[alitolga2000]

Merhabalar,

Değiştir ve Kaydet adlı iki kod var.
ActiveCell.Offset(0, 13) = TextBox14 yazanyerde textbox14 ün yerine
eklediğim sütunun hizasındaki yere

EĞER(DOLAYLI(EĞER(BAĞ_DEĞ_DOLU_SAY(AN6:IV6)+SÜTUNSAY(A6:AJ6)+3<=26;PARÇAAL("ABCDEFGHIJKLMNOPQRSTUVWXYZ";BAĞ_DEĞ_DOLU_SAY(AN6:IV6)+SÜTUNSAY(A6:AJ6)+3;1);PARÇAAL("ABCDEFGHIJKLMNOPQRSTUVWXYZ";TAMSAYI((BAĞ_DEĞ_DOLU_SAY(AN6:IV6)+SÜTUNSAY(A6:AJ6)+3-1)/26);1)&PARÇAAL("ABCDEFGHIJKLMNOPQRSTUVWXYZ";MOD(BAĞ_DEĞ_DOLU_SAY(AN6:IV6)+SÜTUNSAY(A6:AJ6)+3-1;26)+1;1))&1)="çıkış";ETARİHLİ(TOPLA.ÇARPIM((SÜTUN(AN6:IV6)=ÇİFT(SÜTUN(AN6:IV6)))*(AN6:IV6));TOPLA.ÇARPIM((SÜTUN(AN6:IV6)=TEK(SÜTUN(AN6:IV6)))*(AN6:IV6));"Y");ETARİHLİ(TOPLA.ÇARPIM((SÜTUN(AN6:IV6)=ÇİFT(SÜTUN(AN6:IV6)))*(AN6:IV6));TOPLA.ÇARPIM((SÜTUN(AN6:IV6)=TEK(SÜTUN(AN6:IV6)))*(AN6:IV6))+BUGÜN();"Y"))

formülünü yazmasını istiyorum.
yani 6. satır değil hangi satıra ekletiyorsam onu.

Birde buna benzer oda sayfa ikide b2 hücresideki sabit bir değeri yine kaydet deyince
ActiveCell.Offset(0, 14) = TextBox15 textkutusundakini değilde sayfa2 de b2 hücresindeki rakamı yazacak.

 

[emrexcel123]

autofill

arkadaşım bunun yerine doldurmayı dene istersen >>
Sub doldur()
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A5"), Type:=xlFillDefault
Range("A1:A5").Select
End Sub

 

[alitolga2000]

Yanl&#305;z tam dedi&#287;inizi anlayamad&#305;m ama sayfa 2 deki olay&#305; nass&#305;l halledicez.
Oras&#305; devaml&#305; de&#287;i&#351;ecek yani doldurma i&#351;ime yaramaz o y&#252;zden.

 

[alitolga2000]

Birde 680 kay&#305;t var kaydet dedi&#287;imde 5 dk ya yak&#305;n bekletiyor.
Bu form&#252;ller y&#252;z&#252;nden heralde hersat&#305;rda 3 er tane var bunu koda d&#246;n&#252;&#351;t&#252;remezmiyiz?
Bu form&#252;l&#252; neden istedi&#287;imde <<<Tarihler Fark&#305; 216 Adet >>> adl&#305; ba&#351;l&#305;kta sormu&#351;tum ger&#231;i buda hesaplamay&#305; yanl&#305;&#351; yap&#305;yor.

 

[alitolga2000]

Bunları userform ile yapmayı düşünüyorum.

 

[alitolga2000]

Yukardaki formülü makro kaydet ile kaydet ile kaydet diyorum.
kabul etmiyor?