numaratör takibi excelde

Katılım
29 Nisan 2005
Mesajlar
4
Merhaba arkadaslar,
Ben 600 kişilik bir restaurantta çalışıyorum.
ve bu restaurantta adisyonların takibini yapmak için;
-25 e kadar çıkan sayıda garsonlara, her biri 3 nusha ve 50 sayfadan olusan ciltler halinde isim ve adisyon numara aralıklarını not alarak teslim ediyorum.
--Sorunum su: Satistan sonra gelen adisyonların numarasını, her hangi bir hücreye yazdigimda, TESLIMAT SAYFASINDAKI kayitli numarayi buldurup, zemin rengi atamak istiyorum.
Yardimlariniz icin simdiden tesekkur ediyorum
 
Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
merhaba,
öncelikle hoş geldiniz. :hey:

işinize biraz uzak olduğum için konuyu tam anlayamadım ama ,
numaralar arattırılarak bulunan satırın veya hücrenin renklendirilmesi mümkün,

bir dosya gönderirseniz daha çok yardım eden olacaktır.
 

Hüseyin

Administrator
Yönetici
Admin
Katılım
2 Haziran 2004
Mesajlar
3,541
Excel Vers. ve Dili
Excel 2010 - Türkçe
TESLIMAT SAYFASINDAKI
Sayın isakarakusun dediği gibi bu teslimat sayfasını görebilirsek iki defa iş yapmaktan kurtuluruz.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba


Forumdan cevap yaz kısmından ataç ekle ile yaparsanız.
Herkes sorunuzla daha yakından ilgilenir.
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
@ugur,
Yolladıgınız dosyayı bu seferde ben sildim. İçinde kullandığınız isimler de belki kasıt yoktu ama bizim foruma uyan şeyler değil.
İsimleri görünce çözüme devam etmedim ama sanırım makro ile çözülür sorunuz rahatca.
 
Katılım
29 Nisan 2005
Mesajlar
4
DANERSİN DEDIGINIZ GIBI KESINLIKLE KASIT OLMAYAN ISIMLERDI AMA BEN DEGISTIRIP SIZ E TEKRAR GONDERIYORUM KURALLARINIZA FARKINDA OLMADAN UYMADIGIM İÇİN Ã?ZÜRDİLERİM ........İYİ ÇALIÞMALAR
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$d$2" And [d2] = "" Then Exit Sub
On Error Resume Next
Range("c6:v55").Find(What:=[d2], LookIn:=xlValues).Interior.ColorIndex = 8
[d2].Select
End Sub
 
Katılım
29 Nisan 2005
Mesajlar
4
CEVABINIZ İÇİN ÇOK TEÞEKKUR EDERIM AMA NASIL YUKLEYECEGIM ADIM ADIM YAZARSANIZ SEVINIRIM..........
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
syn ugur bey yeni örnek ekte inceleyin
 
Üst