Ürüne göre parti numarası vermek için

C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
Merhaba,
Ulaşmak istediğim;
Ürüne parti numarası vermesini istiyorum. Partiler ürünler için tekrarlanamaz.sürekli artan olmalı
a ürünü 1. parti
b ürünü 1. parti
c ürünü 2.parti
d ürünü 7. parti

Tekrar yazdığımda a ürünü diye bana direkt 2. partide olduğumu bildirsin.
b ürünü yazdığımda yan hücrede "2. parti" veya "2" yazsın.

veya hücreye "d" ürünü yazdığımda geldiğinde "8.parti" veya "8" yazmalı.
Ürüne göre yeni partiyi otomatik olarak vermesini istiyorum.
teşekkürler
 
U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

Sorunuzu Örnek dosya ekleyerek destekler misiniz?
 
U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

Örnek dosyayı inceler misiniz?
 

Ekli dosyalar

C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
merhaba
kaydet butonuna bastığım zaman verileri aşağıya eklemeye devam edebilir mi
kaydet butonuna bastığımda yeni hücresinde yazılı olan parti numarası aşaıdaki listeye eklenecek
 

Ekli dosyalar

C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
birde c yi seçtiğim zaman yeni parti 3 bir önceki parti 6 yazıyor.
bir önceki parti 6 ise yeni partinin 7 olması gerekli
 
C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
birde c ürünün seçtiğim zaman yeni parti 3 eski parti 6 görünüyor.
olması gereken yeni parti 7 yi vermeli
 
Erdem Akdemir

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,640
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
arkadaş parti numaralarına göre değil, ürünün listede kaç defa geçtiğine göre saydırma işlemi yapmış ve +1 eklemiş, verdiğiniz örnekte hepsi 2 defa geçtiği için sonuç hep 3 olacak
 
Erdem Akdemir

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,640
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
sayın clodj denermisiniz
 

Ekli dosyalar

Son düzenleme:
U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

Dosya eklemekte sıkıntı yaşadığım için kodu ağaşıdaki şekilde güncelleri misiniz?
b2 hücresine;
Kod: 
=DOLAYLI("B"&MAK(EĞER(A2=A3:A29;SATIR(B3:B29))))+1
ctrl+shift+enter yaparak deneyiniz.

Kod: 
Sub Yeni_Kayıt_Ekle()
Dim Son_Satır As Long
    If Range("A2") <> "" And Range("B2") <> "" Then
        Son_Satır = [A65536].End(3).Row
        Son_Satır = Son_Satır + 1
        Range("A" & Son_Satır) = [A2]
        Range("B" & Son_Satır) = [B2]
        Range("A2") = ""
        Range("A2").Select
        MsgBox "Yeni Kayıt Eklendi", vbInformation
    Else
    MsgBox "Eklenecek veri girişi yapınız", vbCritical
    End If
End Sub
 
C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
Sayın Kuvari
1-Göndermiş olduğunuz tabloda aşağıya eklene ürün ve yeni partisini yanına tarih atabilirmisiniz.
2-eski parti hücresi ve yanındaki tarih hücresi değişmiyor.
 
Erdem Akdemir

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,640
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
clodj' Alıntı:
Sayın Kuvari
1-Göndermiş olduğunuz tabloda aşağıya eklene ürün ve yeni partisini yanına tarih atabilirmisiniz.
2-eski parti hücresi ve yanındaki tarih hücresi değişmiyor.
Genişletmek için tıkla ...
1-hangi tarih yazılacak, tarihi siz mi belirteceksiniz yoksa güncel tarihmi gelecek

2- değiştiğini görüyorum, tekrardan kontrol edermisiniz
 
C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
Sayın Usubaykan,
Ekteki örneği güncellemede yardımcı olurmusunuz.
veri tabanını 2. sayfada tutmanın daha sağlıklı olacağını düşündüğüm için oraya aldım. vermiş olduğunuz formülleri sanırım uyarlayabildim fakat makroda kaydın diğer sayfada tutulmasını yapamadım.
2-Ayrıca kayıt tuşuna basınca basılan tarihinde otomatik eklenmesini istiyorum.
3-benim manuel olarak dolduracağım veya formüllerle otomatik olarak dolacak olan İçleri sarı olan "değer1 den değer11" kadar olan hücrelerinde veri tabanına kaydının tutulması benim işimi oldukça görecekti.
çalışmanız ve yardımınız için teşekkür ederim
 

Ekli dosyalar

U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

Dosya limit eklemem dolduğu için örnek dosyanızı paylaşıma ekleyemiyorum.

Aşağıdaki kodu;
Kod: 
Sub Yeni_Kayıt_Ekle()
Dim Son_Satır As Long, S1 As Worksheet, S2 As Worksheet
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    If S1.Range("A2") <> "" And S1.Range("B2") <> "" Then
        
        Son_Satır = S2.[A65536].End(3).Row
        Son_Satır = Son_Satır + 1
        S2.Range("B" & Son_Satır) = S1.Range("B2").Value
        S2.Range("A" & Son_Satır) = S1.Range("A2").Value
        S2.Range("C" & Son_Satır) = Format(Evaluate("today()"), "dd.mm.yyyy")
        S2.Range("D" & Son_Satır) = S1.Range("G2").Value
        S2.Range("E" & Son_Satır) = S1.Range("G5").Value
        S2.Range("F" & Son_Satır) = S1.Range("I2").Value
        S2.Range("G" & Son_Satır) = S1.Range("J9").Value
        S2.Range("H" & Son_Satır) = S1.Range("K2").Value
        S2.Range("K" & Son_Satır) = S1.Range("N2").Value
        S2.Range("I" & Son_Satır) = S1.Range("L2").Value
        S2.Range("J" & Son_Satır) = S1.Range("M6").Value
        S2.Range("L" & Son_Satır) = S1.Range("O2").Value
        S2.Range("M" & Son_Satır) = S1.Range("P2").Value
        S2.Range("N" & Son_Satır) = S1.Range("Q2").Value
        S2.Range("O" & Son_Satır) = S1.Range("R2").Value
        S1.Range("A2") = ""
        S1.Select
        S1.Range("A2").Select
    
    MsgBox "Yeni Kayıt Eklendi", vbInformation
    Else
    MsgBox "Eklenecek veri girişi yapınız", vbCritical
    End If
End Sub
B2 hücresine
Kod: 
=EĞER(A2="";"";EĞER(EĞERSAY(Sheet2!A:A;A2)=0;1;DOLAYLI("Sheet2!B"&MAK(EĞER(A2=Sheet2!A2:A100;SATIR(Sheet2!B2:B100))))+1))
D2 hücresine
Kod: 
=EĞER(A2="";"";EĞER(EĞERSAY(Sheet2!A:A;A2)=0;1;DOLAYLI("Sheet2!B"&MAK(EĞER(A2=Sheet2!A2:A100;SATIR(Sheet2!B2:B100))))))
E2 hücresine
Kod: 
=EĞER(A2="";"";EĞER(EĞERSAY(Sheet2!A:A;A2)=0;"Yeni Kayıt";DOLAYLI("Sheet2!C"&MAK(EĞER(A2=Sheet2!A2:A100;SATIR(Sheet2!C2:C100))))))
CTRL+SHIFT+ENTER tuşlarına basarak yazınız.

Değer1 ve diğer değer...... olan kısımlara tam olarak ne gelecek anlayamadım biraz daha açıklayabilir misiniz?
 
Son düzenleme:
C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
Sayın Usubaykan,
ekteki gibi bazı hücrelerde formüllerin getirdiği sayılar veya kelimeler
bazılarında benim gireceğim sayılar ve kelimeler
V.b.leri olacak
 

Ekli dosyalar

U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

Sn Clodj Örnek dosyanızı inceledim benden istediğiniz tam olarak nedir?
Değer yazdığınız hücreler tam olarak nereden veri alacaklar? Değer1' e
Kod: 
=(AE5)
yazmışsınız peki bu
Kod: 
=(AE5)
'e gelen değer hangi sayfanın hangi hücresinden gelecek?
 
Son düzenleme:
C

clodj

Katılım
30 Temmuz 2008
Mesajlar
64
Excel Vers. ve Dili
Excell 2007 İngilizce
Sayın usubaykan,
Şuanda mevcut olarak kullandığım ecxel programında ürünü seçtiğim zaman otomatik olarak gelen hücrelerim var, bazı hücreleri de ben ürüne göre elle doldurup kayıt etmek istiyorum. sizin yardımcı olduğunuz yapıyı mevcut dosyama uyarlayacağım.

İstediğim; Kayıt tuşuna basıldığı zaman; Sheet1 G2 hücresinde görülen "3" rakamı Sheet2 deki D2 hücresine gönderilecek.
G5 de görülen "abc" kelimesi, Sheet2 deki E2 hücresine gönderilecek.
Sheet1 deki I2 hücresindeki rakam Sheet2 deki F2 hücresine gönderilecek
Sheet1 deki J9 hücresindeki rakam Sheet2 deki G2 hücresine gönderilecek
Sheet1 deki K2 hücresindeki tarih Sheet2 deki H2 hücresine gönderilecek
Sheet1 deki N2 hücresindeki tarih Sheet2 deki K2 hücresine gönderilecek

Yukarıda anlatıığım Sheet1 deki mavi renkli hücrelere numara, rakam ve değerler başka formüllerden veya hücrelerden otomatik olarak gelmekte.
geri kalan içleri boş olan sarı hücrelerede kayıt butonuna basmadan önce benim elle doldurduğum hücreler. onlarıda doldurduktan sonra kayıt tuşuna bastığımda Sheet2 sayfasında veri tabanı oluşturmak istiyorum.
umarım anlatabilmişimdir.
teşekkürler
 

Ekli dosyalar

U

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Merhaba,

15 nolu mesajı yeniledim inceler misiniz?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,742
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Sn. Usubaykan beyin size önerdiği kodu aşağıdaki şekilde değiştirip kullanabilirsiniz.

Kod: 
Option Explicit
 
Sub Yeni_Kayıt_Ekle()
    Dim Son_Satır As Long, S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    Son_Satır = S2.[A65536].End(3).Row + 1
    
    If S1.Range("A2") = "" Then
        MsgBox "Lütfen A2 hücresine ürün adı giriniz !", vbCritical, "Dikkat !"
        Exit Sub
    End If
    
    S2.Cells(Son_Satır, 2) = S1.Range("B2").Value
    S2.Cells(Son_Satır, 1) = S1.Range("A2").Value
    S2.Cells(Son_Satır, 3) = Date
    S2.Cells(Son_Satır, 4) = S1.Range("G2").Value
    S2.Cells(Son_Satır, 5) = S1.Range("G5").Value
    S2.Cells(Son_Satır, 6) = S1.Range("I2").Value
    S2.Cells(Son_Satır, 7) = S1.Range("J9").Value
    S2.Cells(Son_Satır, 8) = S1.Range("K2").Value
    S2.Cells(Son_Satır, 9) = S1.Range("L2").Value
    S2.Cells(Son_Satır, 10) = S1.Range("M6").Value
    S2.Cells(Son_Satır, 11) = S1.Range("N2").Value
    S2.Cells(Son_Satır, 12) = S1.Range("O2").Value
    S2.Cells(Son_Satır, 13) = S1.Range("P2").Value
    S2.Cells(Son_Satır, 14) = S1.Range("Q2").Value
    S2.Cells(Son_Satır, 15) = S1.Range("R2").Value
    S2.Cells.EntireColumn.AutoFit
    S1.Range("A2").ClearContents
    S1.Range("L2").ClearContents
    S1.Range("O2:R2").ClearContents
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "Yeni Kayıt Eklendi", vbInformation
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Üst