• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aynı rakamlar var ise mt gelsin..!

S

sensizsoldum

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
iyi akşamlar değerli hocalarım arkadaşlarım,
formül ile yaptığım bi işlemi makroda yapmak istıyorum. bu konuda yardımcı olmanızı rica ederim.

gelenler b sutuna rolik no girdiğimde, bu girilen rolik no stok sayfasından c sutununda var ise, f sutununda o roliğin metresini, gelenler sayfasından, yazılan rolik numarasının karşısına d sutuna yazmasını istiyorum.
gelenler b sutunda giriş yok ise d sutunda boş olsun,
gelenlere giriş yapıldı, stok sayfasında o rolik numarası yok ise, gelenler sayfası d sutunda metresi boş yada 0 olsun istıyorum.

yaptığım excell kodunda bu işlem oluyor, ama yeterince prfesyonel değil, umarım açıklayıcı anlatabilmişimdir. örnek çalışma ektedir. ben ilk 10 satıra formül bıraktım.

ilgi ve alakanıza şimdiden tşk ederim.
iyi çalışmalar dilerim.
 

Ekli dosyalar

Son düzenleme:
arkadaşlar bu konuyada göz atabilir misiniz eminim fazla zamanınızı almıcaktır.
iyi akşmlar dilerim herkese...
 
günaydın arkadaşlar örnek dosyadaki bu formülü makroya nasıl çevirebiliriz. örnek dosyada ve mesajda gerekli açıklamalarıda yaptım. bu konuda yardımcı olabilir misiniz.

=ETOPLA(STOK!C:C;B3;STOK!F:F)
 
sayın atokgoz ben zaten excel formulu ile yapıyorum. bana makro kodları lazım.
arkadaşlar herhangi fikri olan yok mu
 
Merhaba
Bu yazdığınız formül toplamaya yarıyor siz metre getirsin demişsiniz_?
Metre birden fazla mı_?

Yok ben toplam yazılan metreleri toplasın istiyorum derseniz makronuzu yazıp göndereyim.
 
merhaba ilginize tşk ederım.
gelenler sayfasında d sutunda formül var ordan söz ediyorum.
gelenler sayfasına b sutuna girilen rakam,
stok sayfasında c sutunda da var ise,
gelenlere yazılan o rakamın karşısında d sutununda,
stokta yazılan c sutunun karşısında f de metre var o metreyi gelen sayfasında d sutuna getırsın istıyorum

ilk örnek çalışmada bunu daha net anlayabilirsiniz sanırım.
iyi çalışmalar dilerim herkese...
 
Sanırım siz benim söylediğimi anlamadınız.
Stok Sayfasının C sütununda Gelenler sayfasının B3'ündeki rakam 2 veya daha fazla olacak mı_?
Olcaksa F sütunundaki rakamlar üst üste mi toplanacak. Yoksa 1 tane mi olacak_?
 
örneğin gelenler sayfasının b sutununda ayrı hücrelerde
aynı rakamdan birden fazla olmaz, stok sayfasında c sutununda olmaz
stok sayfasına ait gelenler sayfasına b sutuna rolik no yazılmışsa ordaki stoktaki sayfasındaki o roliğe ait metreyi
gelenler sayfasında metre yerıne yazsın istiyorum
 
sensizsoldum' Alıntı:
örneğin gelenler sayfasının b sutununda ayrı hücrelerde
aynı rakamdan birden fazla olmaz, stok sayfasında c sutununda olmaz
stok sayfasına ait gelenler sayfasına b sutuna rolik no yazılmışsa ordaki stoktaki sayfasındaki o roliğe ait metreyi
gelenler sayfasında metre yerıne yazsın istiyorum
Genişletmek için tıkla ...

Merhaba
Boş bir module kopyalayın ve deneyin.

--------------------------------------

Option Explicit
Sub metre_getir_1967()
'Konu : Metre Getir
'Coder By : asi_kral_1967
Dim asi, kral
Dim a, b
Application.ScreenUpdating = False
Set asi = Sheets("STOK")
Set kral = Sheets("GELENLER")
kral.Range("D3:D" & Rows.Count).ClearContents
For a = 3 To kral.Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountIf(asi.Range("C3:C" & Rows.Count), _
kral.Cells(a, "B")) > 0 Then
kral.Cells(a, "D") = WorksheetFunction.VLookup(kral.Cells(a, "B"), _
asi.Range("C3:F" & Rows.Count), 4, 0)
Else
kral.Cells(a, "D") = 0
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

-------------------------------------------

Dosyanız ekte
 

Ekli dosyalar

sayın asi kral çalışma doğru olmuş tşk ederim eline sağlık yalnız butonsuz olmasını ıstıyorum.
ben gelenler b sutuna veri girdikçe metresinin gelmesini istıyorum.
veriyi silince ordaki metreninde silinmesini istıyorum.

bu şekilde ayarlayabilir mıyız.
 
sensizsoldum' Alıntı:
sayın asi kral çalışma doğru olmuş tşk ederim eline sağlık yalnız butonsuz olmasını ıstıyorum.
ben gelenler b sutuna veri girdikçe metresinin gelmesini istıyorum.
veriyi silince ordaki metreninde silinmesini istıyorum.

bu şekilde ayarlayabilir mıyız.
Genişletmek için tıkla ...

Taksit Taksit söylüyorsunuz baştan söyleseydiniz bu şekilde yazardım kodu
 
valla üzgünüm ben böyle yapacağınızı düşünmemiştim. gerçekten özür dilerim ksr bakmayın lutfen.
tekrardan tşk ederim iyi çalışmalar dilerim
 
sensizsoldum' Alıntı:
valla üzgünüm ben böyle yapacağınızı düşünmemiştim. gerçekten özür dilerim ksr bakmayın lutfen.
tekrardan tşk ederim iyi çalışmalar dilerim
Genişletmek için tıkla ...

Merhaba
Sayfanın Kod bölümüne

-------------------------------

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu : Metre Getir
'Coder By : asi_kral_1967
Dim asi, kral
Dim a, b
If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
Set asi = Sheets("STOK")
If WorksheetFunction.CountIf(asi.Range("C3:C" & Rows.Count), Target) > 0 Then
Cells(Target.Row, "D") = WorksheetFunction.VLookup(Target, _
asi.Range("C3:F" & Rows.Count), 4, 0)
Else
Cells(Target.Row, "D") = 0
End If
End Sub

--------------------------

Bu kodu kopyalayın ve deneyin.
Dosyanız ekte
 

Ekli dosyalar

merhaba tekrardan
sayın asi kral elinize sağlık çok tşk ederım istediğim gibi olmuş fakat,
gelenler sayfasından satır sildiğimde run time 13 error hatası alıyorum,
ve gelenler sayfasına b sutuna herhangi bi rakam giriyorum mtresı otomatk gelıyor,
girdiğim rakamı tekrar sildiğimde 0 rakamı kalıyor. bunun kalmamasını da sağlayabilir mıyız.

çunku çalışmalarım otomatık çalışıyor yaklaşık 10 sayfalık bu gibi sorunlar engel oluyor.


tekrardan çok teşekkür ederim.
herşey sizinde gönünüzce olması dileğiyle
saygılarımla
 
sensizsoldum' Alıntı:
merhaba tekrardan
sayın asi kral elinize sağlık çok tşk ederım istediğim gibi olmuş fakat,
gelenler sayfasından satır sildiğimde run time 13 error hatası alıyorum,
ve gelenler sayfasına b sutuna herhangi bi rakam giriyorum mtresı otomatk gelıyor,
girdiğim rakamı tekrar sildiğimde 0 rakamı kalıyor. bunun kalmamasını da sağlayabilir mıyız.

çunku çalışmalarım otomatık çalışıyor yaklaşık 10 sayfalık bu gibi sorunlar engel oluyor.


tekrardan çok teşekkür ederim.
herşey sizinde gönünüzce olması dileğiyle
saygılarımla
Genişletmek için tıkla ...

Merhaba
Kodu bununla değişir misiniz_?

--------------------------------

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu : Metre Getir
'Coder By : asi_kral_1967
Dim asi, kral
Dim a, b
If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
If Target <> "" Then
Set asi = Sheets("STOK")
If WorksheetFunction.CountIf(asi.Range("C3:C" & Rows.Count), Target) > 0 Then
Cells(Target.Row, "D") = WorksheetFunction.VLookup(Target, _
asi.Range("C3:F" & Rows.Count), 4, 0)
Else
Cells(Target.Row, "D") = 0
End If
Else
Cells(Target.Row, "D") = 0
End If
End Sub

-----------------------------
 
merhaba
bu kodu denediğimde gelenler sayfasından herhangi bi yeri tıklattığımda hata veriyor ve kod bölümü açılıyor :((
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst