Excelden Muhasebe Programına Veri Aktarımı (1 satırı 3 kopya ile çoğaltma)

[Emir Hüseyin Çoban]

. . .

O zaman ünvana göre yaptıralım işlemi.
Hesap kodlarının hepsinde ünvan vardır heralde.
Ancak birebir aynı olmalılar.
Kod satırını şu şekilde değiştirerek deneyiniz.
Set ara = S3.Range("B:B").Find(S1.Cells(i, "D"), , xlValues, xlWhole)

. . .

 

[catalinastrap]

send keys

benzer bir sorum olacak benimde yardımcı olabilirseniz sevinirim.
Excelden bir programa data yazdırmam lazım

 

[ovarnali1]

. . .

O zaman ünvana göre yaptıralım işlemi.
Hesap kodlarının hepsinde ünvan vardır heralde.
Ancak birebir aynı olmalılar.
Kod satırını şu şekilde değiştirerek deneyiniz.
Set ara = S3.Range("B:B").Find(S1.Cells(i, "D"), , xlValues, xlWhole)

. . .

yardımlarınız için çok teşekkür ederim.
kod hiç bir sorun olmadan çalışmaktadır.
bu dosyayı dahada geliştiricem muhtemeldirki bir yerlerde takılırım o zaman yine kapınızı çalarım.

 

[ovarnali1]

S2.Cells(sat, "D") = "600.01.002"

Yukarıda benim ilave ettiğim satıra ek olarak sadece "X" firması için 600.01.001ata dememiz mümkünmü?



S2.Cells(sat + 1, "D") = "391.18.001"

Bu kod satırı için de en sondaki "001" anlamı Ocak ayını ifade etmektedir.
Tarih sütununda farklı bir ayı tespit ettiği zaman örneğin "Şubat" = "391.18.002" ata nasıl diyebiliriz?

 

[ovarnali1]

ilk sorduğumu çözdüm

yalnız 2.sorumda aşağıdaki önermeyi yapıyorum ama sonuç 391.18.002 çıkıyor

Yapmak istediğim ilk sayfanın C sütununda 1 görürsen 2.sayfanın D sütun +1 satırına 391.18.001, 2 görürsen 391.18.002 yazdırmak.

If S1.Cells(sat, "C") = "1" Then
Else
S2.Cells(sat + 1, "D") = "391.18.001"
End If

If S1.Cells(sat, "C") = "2" Then
Else
S2.Cells(sat + 1, "D") = "391.18.002"
End If

 

[ovarnali1]

doğru önerme bu olsa gerek

If S1.Cells(i, "C") = "1" Then
S2.Cells(sat + 1, "D") = "391.18.001"
End If

 

[ERRİC]

. . .

Firma isimlerine göre 120 li kodları başka bir yerden çekmemiz gerekmiyor mu ?
Yoksa sıradan 120 kodlarına 120.01.001 - 120.01.002 diye yeni kodmu vereceğiz ?

. . .[/QM

Merhaba yapacağımız bir şablon ile excelden netsis e dekont modülünden dekont veya yevmiye modülünden yevmiye fişi kaydı yapabilir miyiz excel vba ile yapılıyor ama nasıl yardımcı olur musunuz lütfen