Hücrede silinen rakam

[mami68]

Sayfa1-de D sütunu ne yazılırsa silinecek ama aynı yazılan rakam Sayfa2-de kayıt olacak ve her seferde bir alt hücreye kayıt yapılacak Dosyayı incelerseniz sevinirim.Teşekürler...

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır. Aşağıdaki kodları Sayfa1'in Kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
If Target <> "" Then
    Satır = Sheets("Sayfa2").[D65536].End(3).Row + 1
    Sheets("Sayfa2").Cells(Satır, "D") = Target
    Target.Offset(0, 0).Value = ""
End If
Son:
End Sub

 

[mami68]

Sayın necdet bey çok güzel olmuş elinize sağlık.Teşekürler ederim,bu sırada kod bilgisi elimde olsun diye,eğer sayfa1 de yazdığımı 3 ve 4sayfalara nasıl çoğaltırım.Mümkünmü

 

[Necdet]

Merhaba Sayın mami68 ,

Tam olarak sorunuzu anlamadım. Sayfa1 de yazılan bilgilerin Sayfa3 ve 4 te bir kopyasının olmasını mı istiyorsunuz, yoksa Sayfa1 deki bilgilerin Sayfa3 ve 4 te birikimli olarak kaydedilmesini mi istiyorsunuz?

 

[mami68]

Sayın Necdet bey, Sayfa1 deki bilgilerin Sayfa3 ve 4 te birikimli olarak kaydedilmesini istiyorum.

 

[mami68]

Bu sorumuda kaçıracaktım.
Sayfa1 de D4 te ki yazı Sayfa2 de C7-ye
Sayfa1 de D5 te ki yazı Sayfa2 de D7-Ye
Sayfa1 de D6 te ki yazı Sayfa2 de E7-Ye
Sayfa1 de D7 te ki yazı Sayfa2 de F7-Ye VE devamını ben eklerim.Çünkü bu sayfa Sevk sayfası geçiyor ondan her hücre farklı yere gidecek.Bunlardan 100 satır eklenecek bu kodlarla ,tabi.Ama iyi anlaşılsın her seferde Sayfa1- D4 -te her seferde Sayfa2-de C7,C8,C9
Sayfa1- D5 -te her seferde Sayfa2-de D7,D8,D9
devam edecek inşallah kafanızı karıştırmadım.
Olursa çok süper olacak çünkü bu çalışmam sonunda siteye dağıtılacak stok ve üretimle ilgili.İlginize Teşekürler.....

 

[mami68]

Formülü yazarken küçük harf büyük harf arasında fark varmı.Hücrede yazdığımız zaman otomatikmen küçük harf büyük oluyor ama macroda öyle değil galiba.

 

[mami68]

hocam sitede yokmusunuz

 

[Necdet]

Bu sorumuda kaçıracaktım.
Sayfa1 de D4 te ki yazı Sayfa2 de C7-ye
Sayfa1 de D5 te ki yazı Sayfa2 de D7-Ye
Sayfa1 de D6 te ki yazı Sayfa2 de E7-Ye
Sayfa1 de D7 te ki yazı Sayfa2 de F7-Ye VE devamını ben eklerim.Çünkü bu sayfa Sevk sayfası geçiyor ondan her hücre farklı yere gidecek.Bunlardan 100 satır eklenecek bu kodlarla ,tabi.Ama iyi anlaşılsın her seferde Sayfa1- D4 -te her seferde Sayfa2-de C7,C8,C9
Sayfa1- D5 -te her seferde Sayfa2-de D7,D8,D9
devam edecek inşallah kafanızı karıştırmadım.
Olursa çok süper olacak çünkü bu çalışmam sonunda siteye dağıtılacak stok ve üretimle ilgili.İlginize Teşekürler.....

Ben dağıldım valla

 

[mami68]

Hocam canını sıkma olursa güzel olur, olmasa olmaz.Bu yapacağım program benim değil siteden bir üye olan arkadaşımızın.Onunda öyle bi istekleri var ki değil dağılmak bir gün kendisine dedim zaten kafayı yiyecem.Her seferde başka proje,her seferde başka istek ama sonuna gelmek üzereyim.Ve bu dosya bittiğinde forumda dağıtacam ki başkaları kafa yemesin.Yorduğuma özür,emeğinize teşekürler....

 

[Necdet]

Sayın mami68,

Özür dilemenize gerek yok, burası yardımlaşma forumu, bilen bildiği ölçüde yardımcı olmaya çalışıyor. Bende onlardan biriyim. Önemli olan sorunun açık olması, soruda çelişkiler var gibi geldi bana.

O yüzden birşey yapamadım.

İyi yıllar diliyorum.

 

[mami68]

Hocam kolay gelsin.Siz zaten bu işi becerdiniz.Bunun sadece devamını istiyorum.Örnek:Sayfa1 de D4 te ki yazı Sayfa2 de C7-ye gidiyor zaten ve her seferinde bi hücre aşağı kaydediyor bunu siz yaptınız ama şimdi isteğim
Sayfa1 de D4 te ki yazı Sayfa2 de C7-ye olduğu gibi dosyada var.
Olacak olan aşağıdaki işlem:
Sayfa1 de D5 te ki yazı Sayfa2 de D7-Ye ve d8, aşağı kaydet
Sayfa1 de D6 te ki yazı Sayfa2 de E7-Ye ve e8, aşağı kaydet
Sayfa1 de D7 te ki yazı Sayfa2 de F7-Ye VE devamını ben eklerim.Çünkü bu sayfa Sevk sayfası geçiyor ondan her hücre farklı yere gidecek.Teşekürler

 

[mami68]

Tekrar dosyada açıklama yaptım.

 

[mami68]

Hocam anlaşılır bir açıklama yaptım.İlginize teşekürler.

 

[mami68]

Sayın Necdet bey yaptığınız aynı işlemin devamını istiyorum,neresi karışık anlamadım.Son dosyaya bi bakın.

 

[mixser]

Sn.mami68

İsteğinizin cevabı aslında yaptığınız ilk işlemde gizli sadece adreslemelerde oynama yapmanız gerekiyor.Dikkatlice bakarsanız görürsünüz. Benzer bir mantıkla yapılmış bir dosya ekliyorum. bu benim işyerimde kullandığım satınalma kayıtlarımı oluşturan bir minik proğramcık kodları incelerseniz belki düşünce şeklinizdede değişiklikler olabilir birazdaha gayretle çok iyi şeyler çıkarabileceğinize eminim.
Saygılarımla

Not : dataları silmedim böylelikle kayıt şeklinide görmüş olursunuz

 

[Necdet]

Merhaba,

Sakın kızmayın Sayın mami68,

Bazen nutkum tutulur hiç birşey yapamam, o yüzden hemen yanıt veremedim. Kısa ve sınırsız bir formül düşündüğüm için bekledim.

Bence deydide beklemeye

Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalamanız gerek. Koyu kırmızı yazılan sınırı siz genişletirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[B][COLOR=red]D4:D10[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target <> "" Then
    Kolon = Target.Row
    Sat&#305;r = Sheets("Sayfa2").Cells(65536, Kolon).End(3).Row + 1
    If Sat&#305;r < 5 Then Sat&#305;r = 5
    Sheets("Sayfa2").Cells(Sat&#305;r, Kolon) = Target
    Target.Offset(0, 0).Value = ""
End If
Son:
End Sub

 

[mami68]

Sayın Necdet bey mükkemelsiniz.Aradığım bu.Size kızmam hayatta olmaz hocam.Sadece programı siteye dağıtmak amacıyla heyecanlanıyorum bundan aceleci davranıyorum.Ve forum arkadaşım hergün mesaj çekiyor oldumu diye. Şimdi hocam,bu sayfa2 de kayıt yazıyorya ben mesela istesem atlama yapabilirmiyim mesela G-den sonra H ve I değilde J-de olsun kayıt.Ellerinize sağlık teşekürlerimi ifade ederek Yeni Yılınız Kutlu ve Mutlu olsun.Gelecek sene görüşmek dilekleriyle.

 

[mami68]

Sayın mixser ilginize vede göndermiş olduğunuz dosya için teşekkürler,şimdi inceleme yapacam.

 

[SanaLSukuL]

Sayın mami68 in formunda yazılan rakam direkt sayfa 2 deki hücreye gidiyor.
Biz bunu
DATA sayfasındaki SİL e tıkladığımızda
DATA daki C4 ten silinip MAZİ C4 e
DATA daki D4 ten silinip MAZİ D4 e
DATA daki E4 ten silinip MAZİ E4 e yazılsa.

Bir sorum daha olacak mümkünse eğer
DATA sayfasındaki
sözleşmeli yazan hücredeki Öğretmenlerin bilgileri sözleşmeli sayfasına
kadrolu yazanlar kadrolu sayfasına
ücretli yazanlar ise ücretli sayfası na otomatik yazsa.
Yaptığım formda burada açıklayamadıklarım var burda açıklama baya bir uzun sürüyor.
Yardımcı olursanız sevinirim. Teşekkür ederim
BÜTÜN FORM ÜYELERİNİN VE YÖNETİCİCERİNİN YENİ YILINI KUTLARIM. MUTLU YILLAR...

Ekli dosya bu sayfanın 2. sayfasında..