Excelde aynı hücreye girilen verileri başka hücrelere aktarma

[Yıldırım156]

Herkese Merhaba;
Bir ilkokulda sınıf öğretmeniyim. Yarın için okulumuzda yerli malı haftasını kutlayacağız. Bu kapsam okula manav tezgahı kurup öğrencilerimiz satış yapacak. Ben de manav reyonondan sorumluyum excelde bir program yapıp hızlı işlem ve ürünlerin ne kadar tükendiğini hesaplamamız gerekiyor. İş dönüp dolaşıp makroya geldi. uğraştım ama işin içinden çıkamadım yardımcı olursanız çok sevinirim. yaptığımız iş aslında basit ama çıkamadım.
Yapmak istediğimi örnek çalışma üzerinde anlattıp. Yardımcı olursanız çok sevinirim. dosyayı linki:

http://www.dosya.tc/server16/asa87w/yerli_mali_haftasi_pazar_tezgahi.xlsx.html

 

[Yıldırım156]

şu makroyu buldum ama kaydederken sub () hatası verip durdu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For i = 1 To Range("C65535").End(xlUp).Offset(1, 0).Row
If Range("C" + CStr(i)).Value = "" Then
Range("C" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub

 

[muygun]

Merhaba;
Hücre üzerinde işlem telafisi zor hatalarıda beraberinde getirir.
Eki deneyin.
Userform ile çalışmak ve bir veri tabanı tutmak bence daha mantıklı...
İyi çalışmalar.

Link:
http://dosya.co/2cq0nmesbr0z/Yıldırım156-manav.zip.html

 

[Yıldırım156]

Merhaba;
Hücre üzerinde işlem telafisi zor hatalarıda beraberinde getirir.
Eki deneyin.
Userform ile çalışmak ve bir veri tabanı tutmak bence daha mantıklı...
İyi çalışmalar.

Link:
http://dosya.co/2cq0nmesbr0z/Yıldırım156-manav.zip.html

Çok teşekkür ederim. yoğunluktan giremedim sayfaya Allah razı olsun.