Çözüldü Matrah aktarımı formül sorunu

[talip21]

Hayırlı akşamlar sayın hocalarım.
Ekli dosyama Matrah penceresinden ilgili aya matrah aktarımı yapıyordum. Şimdi bir değişiklik yaptım Matrah sayfasının B ve C satırlarına formül ekleyerek ilgili personelleri Bilgi sayfasına kayıt yaptığımda Matrah sayfasında görünüyor.
-- Bundan sonra matrah aktarımı yaptığımda kodda bir sorun oluştu ve aktarmada hata veriyor. Yardımlarınızı bekliyorum.

 

[Özcan ÖZBEK]

Hayırlı akşamlar sayın hocalarım.
Ekli dosyama Matrah penceresinden ilgili aya matrah aktarımı yapıyordum. Şimdi bir değişiklik yaptım Matrah sayfasının B ve C satırlarına formül ekleyerek ilgili personelleri Bilgi sayfasına kayıt yaptığımda Matrah sayfasında görünüyor.
-- Bundan sonra matrah aktarımı yaptığımda kodda bir sorun oluştu ve aktarmada hata veriyor. Yardımlarınızı bekliyorum.

For a = 2 To son

If ay >= 17 Then
kisi = Application.Match(m.Cells(a, "C").Value, i.Range("B17:B500"), 0) + 16
m.Cells(a, ay) = Format(CDbl(i.Cells(kisi, "F").Offset(-1, 0)), "#,###.#0")
Else

If m.Cells(a, "C").Value = "" Then GoTo cik
kisi = Application.Match(m.Cells(a, "C").Value, b.Range("B17:B500"), 0) + 16

m.Cells(a, ay) = b.Cells(kisi, "O").Offset(-1, 0)
End If
cik:

 

[Özcan ÖZBEK]

For a = 2 To son

If ay >= 17 Then
kisi = Application.Match(m.Cells(a, "C").Value, i.Range("B17:B500"), 0) + 16
m.Cells(a, ay) = Format(CDbl(i.Cells(kisi, "F").Offset(-1, 0)), "#,###.#0")
Else

If m.Cells(a, "C").Value = "" Then GoTo cik
kisi = Application.Match(m.Cells(a, "C").Value, b.Range("B17:B500"), 0) + 16

m.Cells(a, ay) = b.Cells(kisi, "O").Offset(-1, 0)
End If
cik:

İsimler arasındaki fazladan boşlukları kaldır. Personel bilgisinde adı: Rahman boşluk Soyadı: OK

 

[talip21]

İsimler arasındaki fazladan boşlukları kaldır. Personel bilgisinde adı: Rahman boşluk Soyadı: OK

Hocam bu sefer üstteki kod sorun verdi İkramiye matrahı aktarırıken

 

[Özcan ÖZBEK]

Hocam bu sefer üstteki kod sorun verdi İkramiye matrahı aktarırıken

Rahman OK diğer sayfalardaki isimlerini de kontrol et

 

[Özcan ÖZBEK]

Rahman OK diğer sayfalardaki isimlerini de kontrol et

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[userx]

Sayın talip21
Önceki kodu alttaki kodla değiştirerek dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[talip21]

Sayın talip21
Önceki kodu alttaki kodla değiştirerek dener misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam çok teşekkür ederim emeğinize sağlık Allah razı olsun. İyi ki varsınız.

 

[talip21]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam ilginiz için çok teşekkür ederim. Emeğinize bilginize sağlık Allah razı olsun.