[Yardım]  Excel Vba da kod ile hücreye formül atama hatası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel Vba da kod ile hücreye formül atama hatası

İleti#1)  umutins62 » 19 Eyl 2022 10:38

Arkadaşlar bir uygulama üzerinde çalışıyorum.Bu uygulamada örnek bir dosya oluşturup kayıtları bu dosyayı kopyalayıp ada göre ayrı ayrı kaydediyorum.Ancak aşağıda vereceğim kodda hata alıyorum sebebi nedir yardım ederseniz çok sevinirim şimdiden teşekkürler.

Kod: Tümünü seç
Sub ff_sayfa_hesapları()

Application.Workbooks.Open (yol & "\ORNEK.xlsx")
yol = ActiveWorkbook.Path
ActiveWorkbook.Sheets("fiyatfarkı").Activate
Dim i As Integer
For i = 2 To 50
    ActiveWorkbook.Sheets("fiyatfarkı").Range("K" & i).Formula = "=IF(COUNTIF($C$2:C2, C2)=1, ROW(), "")"
Next i

ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub



ActiveWorkbook.Sheets("fiyatfarkı").Range("K" & i).Formula = "=IF(COUNTIF($C$2:C2, C2)=1, ROW(), "")" bu satırda hatayı alıyorum.
ofise 2016
Kullanıcı avatarı
umutins62
 
Kayıt: 16 Eyl 2022 14:03
Meslek: İnşaat Müh.
Yaş: 39
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: N/A

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Excel Vba da kod ile hücreye formül atama hatası

İleti#2)  umutins62 » 19 Eyl 2022 10:43

Arkadaşlar aldığım hatada budur."VBA Runtime Error 1004 “Application-defined or Object-defined error”
Kullanıcı avatarı
umutins62
 
Kayıt: 16 Eyl 2022 14:03
Meslek: İnşaat Müh.
Yaş: 39
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: N/A

Cevap: Excel Vba da kod ile hücreye formül atama hatası

İleti#3)  Yken » 19 Eyl 2022 10:47

yol = ActiveWorkbook.Path

Kod: Tümünü seç
Sub ff_sayfa_hesapları()

yol = ActiveWorkbook.Path
Application.Workbooks.Open (yol & "\ORNEK.xlsx")
ActiveWorkbook.Sheets("fiyatfarkı").Activate
Dim i As Integer
For i = 2 To 50
    ActiveWorkbook.Sheets("fiyatfarkı").Range("K" & i).Formula = "=IF(COUNTIF($C$2:C2, C2)=1, ROW(), "")"
Next i

ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Kullanıcı avatarı
Yken
Yeni Başlamış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 56
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel Vba da kod ile hücreye formül atama hatası

İleti#4)  umutins62 » 20 Eyl 2022 14:18

hocam haklısın hatayı orda alıyorum peki nasıl çözecem yardım cı olursan çok sevinirim.Teşekkürler.Bu uygulamayı da eklenti olarak tasarladım onu da belirtiyim.
Kullanıcı avatarı
umutins62
 
Kayıt: 16 Eyl 2022 14:03
Meslek: İnşaat Müh.
Yaş: 39
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: N/A

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Excel Vba da kod ile hücreye formül atama hata

İleti#5)  umutins62 » 20 Eyl 2022 14:47

Yken yazdı:yol = ActiveWorkbook.Path

Kod: Tümünü seç
Sub ff_sayfa_hesapları()

yol = ActiveWorkbook.Path
Application.Workbooks.Open (yol & "\ORNEK.xlsx")
ActiveWorkbook.Sheets("fiyatfarkı").Activate
Dim i As Integer
For i = 2 To 50
    ActiveWorkbook.Sheets("fiyatfarkı").Range("K" & i).Formula = "=IF(COUNTIF($C$2:C2, C2)=1, ROW(), "")"
Next i

ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Hocam dediğiniz yoldan çözdüm teşekkürler.
Kullanıcı avatarı
umutins62
 
Kayıt: 16 Eyl 2022 14:03
Meslek: İnşaat Müh.
Yaş: 39
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: N/A


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 4 misafir

Bumerang - Yazarkafe