Hücreye formül eklerken ofis dil sorunu

[tamer42]

Merhabalar,
makro kodu içinde bir hücreye formül oluşurken;
faklı makinelerde çalışırken ofis programının dilleri Türkçe ve İngilizce olarak bulunmaktadır. her iki makinede de sorunsuz olarak çalışması için aşağıdaki şekilde bir sistem oluşturmaya çalışım fakat çok sağlıklı olmadı, hatta İngilizce dilde olan makinede ";" yerine "," kullanılıyor.
Tüm bu durumlarda Türkçe ve İngilizce dilinde olan makinelerde sıkıntısız çalışması için nasıl bir düzenleme yapmak gerekir? yardımcı olursanız sevinirim.

.....................
..................................
Set ws = Sheets("Malzeme")

    '' On Error GoTo 40:
    ws.Range("J2").Formula = "=SUMIF(Stoklar!$A$2:$A$16000;$A2;Stoklar!J$2:J$16000)"
    ws.Range("K2").Formula = "=SUMIF(Stoklar!$A$2:$A$16000;$A2;Stoklar!K$2:K$16000)"

40:
 On Error GoTo 80
 
  ''   ws.Range("J2").FormulaLocal = "=ETOPLA(Stoklar!$A$2:$A$16000;$A2;Stoklar!J$2:J$16000)"
  ''   ws.Range("K2").FormulaLocal = "=ETOPLA(Stoklar!$A$2:$A$16000;$A2;Stoklar!K$2:K$16000)"
 
80:
On Error GoTo 0
.............
..........................

iyi Çalışmalar.

 

[Haluk]

ws.Range("J2").Formula = "=SUMIF(Stoklar!$A$2:$A$16000,$A2,Stoklar!J$2:J$16000)"

 

[tamer42]

ws.Range("J2").Formula = "=SUMIF(Stoklar!$A$2:$A$16000,$A2,Stoklar!J$2:J$16000)"

teşekkürler Haluk Hocam;

 

[canburak]

teşekkürler Haluk Hocam;

Merhabalar Hocam,
Assagida belirttigim formule kucuk yada bos ise formulunu sanirim ekleyemedim internettene arastirim ama birturlu olmadi yardimci olabilirmisiniz lutfen?

.Formula = "=SUMIFS('Mal'!F:F,'Mal'!B:B,""Satis"",'Mal'!N:N,B5)"

Yapmak istedigim bu formule ilave kosul eklemek ,'Mal'!T:T, sutunu Bos ise yada 1 den kucuk ise seklinde

Cok Tesekkurler

 

[Korhan Ayhan]

Boş bir dosyada bu şekilde denediğimde olumlu sonuç aldım.

=SUM(SUMIFS(Mal!F:F;Mal!B:B;"Satis";Mal!N:N;B5;Mal!T:T;{"";"<1"}))

 

[canburak]

Boş bir dosyada bu şekilde denediğimde olumlu sonuç aldım.

=SUM(SUMIFS(Mal!F:F;Mal!B:B;"Satis";Mal!N:N;B5;Mal!T:T;{"";"<1"}))

Tesekkurler hocam elinize saglik.

 

[canburak]

Tesekkurler hocam elinize saglik.

Hocam makro assagidaki gibi yazmistiniz onceden bunun icine yaptiginiz sekilde yazinca hata veriyor
=SUM(SUMIFS(Mal!F:F;Mal!B:B;"Satis";Mal!N:N;B5;Mal!T:T;{"";"<1"})) bu sekilde eklememe izin vermiyor?
Saygilar



Option Explicit

Sub Miktar_Getir()
Dim Son As Long

With Sheets("Rapor")
.Range("G5:G" & .Rows.Count).ClearContents
Son = .Cells(.Rows.Count, 1).End(3).Row
With .Range("G5:G" & Son)
.Formula = "=SUMIFS('Mal'!F:F,'Mal'!B:B,""Satis"",'Mal'!N:N,B5)"
.Value = .Value
End With
End With

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Elbette çalışmaması normaldir. Ben hücre içinde çalışacak versiyonunu paylaştım. Siz onu hücreye yazdıktan sonra makro kaydet yöntemini kullanarak VBA şeklini elde edebilirsiniz. Hem bu şekilde nasıl yapıldığını (yani balık tutmayı) öğrenmiş olursunuz.

 

[canburak]

Eyvallah Hocam, Benim ofis turkce buarada sum-sumif seklinde olmuyor

Saygilar,

 

[Korhan Ayhan]

Profilinizde ki sürüm bilgisini güncellemenizde fayda var. Yazdığınız ifade yeterli değil.

Excel Vers. ve Dili turkce


Aşağıdaki linkten formülleri farklı dillerde çevirerek kullanabilirsiniz.

Translator

The online tool for the translation of Excel formulas and functions from one language to another. Supports the replacement of argument separators, 35 languages and much more.

en.excel-translator.de

 

[canburak]

Profilinizde ki sürüm bilgisini güncellemenizde fayda var. Yazdığınız ifade yeterli değil.

Excel Vers. ve Dili turkce


Aşağıdaki linkten formülleri farklı dillerde çevirerek kullanabilirsiniz.

Translator

The online tool for the translation of Excel formulas and functions from one language to another. Supports the replacement of argument separators, 35 languages and much more.

en.excel-translator.de

Hocam Formul cevirme sayfasi gibi bir yer oldugunu bilmem guzel oldu tesekkurler ilerde lazim olacak, ama makro kaydetince anlasilir sekilde yapmiyor ki , sutun vesaire ogrene bilmek icin anlasilir degil benim acimdan, assagida makro kayit ordegi, activeCell bana lazim degil mesela C[-16],C[-23] nereyi temsil ediyor anlasilmiyor , makroyu, C[-16] yerine Hangi sutunsa belirterek gosteremezmi ?

ActiveCell.FormulaR1C1 = _
"=SUM(SUMIFS(Liste!C[-16],Liste!C[-23],""COMMERCIAL GOODS"",Liste!C[-11],RC[-25],Liste!C[-10],{"""",""<1""}))"

 

[Korhan Ayhan]

Siz hemen böyle pes ederseniz öğrenme süreciniz sancılı geçer.

Bıkmadan usanmadan araştırmalısınız. Bu şekilde sağlıklı şekilde öğrenebilirsiniz.

 

[canburak]

Hocam ek olarak kendi sayfama yerlestirdigimde uyarlanamiyor , ve hata veriyor.

Saygilar,


Dim son As Long

With Sheets("FINAL")
.Range("AD6:AD" & .Rows.Count).ClearContents
son = .Cells(.Rows.Count, 5).End(3).Row
With .Range("AD6:AD" & son)
.Range = "=SUM(SUMIFS(Liste!C[-16],Liste!C[-23],""COMMERCIAL GOODS"",Liste!C[-11],RC[-25],Liste!C[-10],{"""",""<1""}))"
End With
End With

 

[canburak]

evet buldum assagidaki sekilde yapinca calisti hocam sagolun ama C[-11] lerin yerine dha anlasilir makro nasil kaydedile bilir?

.Formula = "=SUM(SUMIFS(Liste!C[-16],Liste!C[-23],""COMMERCIAL GOODS"",Liste!C[-11],RC[-25],Liste!C[-10],{"""",""<1""}))"

 

[Korhan Ayhan]

Şunun yerine;

Liste!C[-16]

Hücrede yazdığınız formülde hangi adres varsa onu yazabilirsiniz.

Liste!A1:A100 gibi...

 

[canburak]

Tamamdir ama hocamYardimlariniz icin cok tesekkurler, calisiyor
Saygilar,

 

[Korhan Ayhan]

Hatırlatmamı dikkate alırsanız sevinirim...

Profilinizde ki sürüm bilgisini güncellemenizde fayda var. Yazdığınız ifade yeterli değil.

Excel Vers. ve Dili turkce

 

[canburak]

Hatırlatmamı dikkate alırsanız sevinirim...

Profilinizde ki sürüm bilgisini güncellemenizde fayda var. Yazdığınız ifade yeterli değil.

Excel Vers. ve Dili turkce

Tamamdir , Yazdim