Çözüldü Olmayanı Bulmak.

[Hunkar50]

öncelikle mrb.

sayın Arkadaşlar. 1 çalışma kitabımızda Müşteriler ve bakım sayfası mevcut.
Müşterilere ayda 1 kez bakım işlenmesi mucburi ve bu bakımı bir şekilde takip etmem gerekli. bakım işlemlerini bakım sayfasına tarihli bir şekilde kayıt ediyorum
sorunum ; 2 tarih aralıgında 01.01.2022 / 31.01.2022 tarihlerini seçtiğimde bu 2 tarih arasında bakımını yapmadığımız müşterileri tespit etmek yani (bekleyen_bakıım) sayfasına bakımı yapılmayan yerleri sıralamak...

Bu konuda nasıl bir yol izlemeliyim EXCEL konusunda acemiyim ve programcı değilim ..
şimdiden teşekkür ederim

 

[VetExc]

Merhabalar örnek dosya eklerseniz sorununuzu özetleyecek şekilde karalama verilerle.. EĞERSAY , topla.çarpım vs. işlevleriyle hangi kişiler bu aralıkta olup olmadığının tespitini yapabilirsiniz.

 

[Hunkar50]

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Degerli hocam sayfamızdan taslak hazırladım..

Bakar değerlendirirseniz sevinirim.. Teşekkürler.

 

[VetExc]

Örnek dosyanızı harici sitelere yükleyipte uğraşmanıza gerek yok. Forumumuzda dosya yükleme limiti veya ücreti yoktur, konu oluştururken dosya ekleme yapıp, rahatlıkla yükleyebilirsiniz... Başta örnek dosya eklemediğiniz için sorduğunuz soruya istinaden formülle çözüm sağlanır dedim ama şu an yüklediğiniz örnek dosyanızı inceleyince içerikte bahsettiğiniz durumlar tamamıyla makro ile alakalı. Dolayısıyla makro ile ilgilenen arkadaşlarımızdan çözüm önerileri gelecektir. İyi çalışmalar dilerim.

 

[İbrahim Görgülü]

öncelikle mrb.

sayın Arkadaşlar. 1 çalışma kitabımızda Müşteriler ve bakım sayfası mevcut.
Müşterilere ayda 1 kez bakım işlenmesi mucburi ve bu bakımı bir şekilde takip etmem gerekli. bakım işlemlerini bakım sayfasına tarihli bir şekilde kayıt ediyorum
sorunum ; 2 tarih aralıgında 01.01.2022 / 31.01.2022 tarihlerini seçtiğimde bu 2 tarih arasında bakımını yapmadığımız müşterileri tespit etmek yani (bekleyen_bakıım) sayfasına bakımı yapılmayan yerleri sıralamak...

Bu konuda nasıl bir yol izlemeliyim EXCEL konusunda acemiyim ve programcı değilim ..
şimdiden teşekkür ederim

belirtilen tarih aralığında bakımı yapılmamış müşterilerinizi BEKLEYEN_BAKIM sayfanıza yazdırdım. kolay gelsin.

 

[Hunkar50]

Pardon hocam fark etmemişim...

 

[Ümit Bakacak]

Sayın Hunkar50 bekleyen bakım sayfası tamam oldu gibi. Ancak o sayfada D2 hücresinde yazan İŞLEM AÇIKLAMASI nedir. Bu bilgiyi nereden getireceğim?

 

[Hunkar50]

Sayın Hunkar50 bekleyen bakım sayfası tamam oldu gibi. Ancak o sayfada D2 hücresinde yazan İŞLEM AÇIKLAMASI nedir. Bu bilgiyi nereden getireceğim?

sayın Hocam Orada birşey yazmasada olur. Bekleyen bakımları göreyim ve toplam meblaglarını bir şekilde de takip edeyim yeter gibi
Elinize saglık şimdiden
Sabit Sayfasına Bekleyen Bakım Yazıp oradan alıntı yapabilirmiyiz ?

Taş yerlerine oturdukca noksanlar çıkıyor, şuda olsun bu da olsun derken sonuç neye varacak merak ediyorum ..

 

[Ümit Bakacak]

Her şey mümkün ama önce sizin olayı kafanızda tam olarak oturtmanız lazım. Ha bire o değişsin şöyle olsun bu değişsin böyle olsun olmaz.

Sabit sayfasında J4 hücresi YETKİLİ ADI nedir? Müşteri Adı mıdır?

 

[Hunkar50]

Her şey mümkün ama önce sizin olayı kafanızda tam olarak oturtmanız lazım. Ha bire o değişsin şöyle olsun bu değişsin böyle olsun olmaz.

Sabit sayfasında J4 hücresi YETKİLİ ADI nedir? Müşteri Adı mıdır?

Hocam Kayıt adı Apartman adı , Müşteri adı ise Şahıs
Ben Bunu asansörlerin Bakım Takibinde + malzeme + revizyon işine kullanayım diyorum. Nasip olursa

 

[Ümit Bakacak]

Bekleyen_Bakım sayfasını ayarladım. Ancak daha fazla yardımcı olabilmem için ÖNCE SİZİN KENDİNİZE YARDIMCI OLMANIZ gerekiyor.
Bir sayfada Müşteri Adı başka sayfada Kayıt Adı başka bir sayfada Bilmem Ne Adı şeklinde olmaz.
Elma her zaman elmadır. Bu Müşteri Adı ise her sayfada Müşteri adıdır.
Aynı şekilde Extra sayfası için ... olacak demişsiniz ama ne hangi veriyi alacağım ne de getirdiğim veriyi nereye yazacağım belli değil.
Bu hali ile dosyanızı yüklüyorum. Dediğim gibi Bekleyen_Bakım sayfası tamam. Dosyanızdaki tutarsızlıkların TAMAMINI giderdikten sonra isteğinizi de bizim anlayabileceğimiz bir dille yazarsanız gene yardımcı olmaya çalışırım. Şimdilik hayırlı geceler.

 

[Hunkar50]

Bekleyen_Bakım sayfasını ayarladım. Ancak daha fazla yardımcı olabilmem için ÖNCE SİZİN KENDİNİZE YARDIMCI OLMANIZ gerekiyor.
Bir sayfada Müşteri Adı başka sayfada Kayıt Adı başka bir sayfada Bilmem Ne Adı şeklinde olmaz.
Elma her zaman elmadır. Bu Müşteri Adı ise her sayfada Müşteri adıdır.
Aynı şekilde Extra sayfası için ... olacak demişsiniz ama ne hangi veriyi alacağım ne de getirdiğim veriyi nereye yazacağım belli değil.
Bu hali ile dosyanızı yüklüyorum. Dediğim gibi Bekleyen_Bakım sayfası tamam. Dosyanızdaki tutarsızlıkların TAMAMINI giderdikten sonra isteğinizi de bizim anlayabileceğimiz bir dille yazarsanız gene yardımcı olmaya çalışırım. Şimdilik hayırlı geceler.

Hocam Emeğinize saglık, İnceliyorum şu an

 

[Hunkar50]

Bekleyen_Bakım sayfasını ayarladım. Ancak daha fazla yardımcı olabilmem için ÖNCE SİZİN KENDİNİZE YARDIMCI OLMANIZ gerekiyor.
Bir sayfada Müşteri Adı başka sayfada Kayıt Adı başka bir sayfada Bilmem Ne Adı şeklinde olmaz.
Elma her zaman elmadır. Bu Müşteri Adı ise her sayfada Müşteri adıdır.
Aynı şekilde Extra sayfası için ... olacak demişsiniz ama ne hangi veriyi alacağım ne de getirdiğim veriyi nereye yazacağım belli değil.
Bu hali ile dosyanızı yüklüyorum. Dediğim gibi Bekleyen_Bakım sayfası tamam. Dosyanızdaki tutarsızlıkların TAMAMINI giderdikten sonra isteğinizi de bizim anlayabileceğimiz bir dille yazarsanız gene yardımcı olmaya çalışırım. Şimdilik hayırlı geceler.

Hocam Mocro ile kriter sorgulama yapıyorum.
Zahmet olmaz ise aşagıda yazacagım kodun devamını nasıl getirebilirim.

Worksheets("SABİT").Activate
Range("F5").Value = ""
Range("G5").Value = ""
Range("F5").Value = Range("F5").Value & TextBox2.Value
Worksheets("EXTRA").Activate
Range("A13").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Range("A12").Select
Range("Bakım").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A12"), Unique:=False

Bu kod ile sadece bakım sayfasında olan verileri Extra sayfasına yazdırabiliyorum. ama bu işlem bitmeden devir, parça, revizyon, tahsilat sayfalarındaki verileride alt alta sıralasın istiyorum.

isterseniz çalışma kitabının şu an ki halini size gönderebilirim.

Range("Bakım").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A12"), Unique:=False " bu kodun devamına

Range("Bakım").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A12"), Unique:=False
Range("revizyon").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A25"), Unique:=False" a25 tamamen uydurma bir satır ( cünki bakım kaçta bitecek belli olmayacak )

A25 den itibaren revizyonu sıralıyor ama ben bakım işemin ardına ilave etsin istiyorum..

Teşekkürler

 

[Hunkar50]

Aceba Kulagımı ters mi tutuyorum onunda farkında olmayabilirim

 

[Hunkar50]

Bu son dosyada hepsi belirtilmiş hali Hocam. Noksan birşey bıraktım mı olması gereken bilmiyorum ama işimi görecek bir çalışma kitabı

 

[excelcan]

Sayın Hünkar50 kodlarda o sayfadan bu sayfaya activate ile uzun atlama yapmaktansa
ilgili işlemlerin başına sayfa adı verin. REVİZYON alan adını ben indirdiğim
dosyada RVZ olarak değiştirdim. Gelişmiş filtreleme ile çalışıyorsanız
sütun başlıklarının aynı olmasına dikkat edin. Bir yerde Tahsil Edilen
diğer yerde Alınan sıkıntı yaratır.

Range("revizyon").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A25"), Unique:=False"
a25 tamamen uydurma bir SATIR ( cünki bakım kaçta bitecek belli olmayacak )

yerine şöyle yazın.

With Sheets("REVİZYON")
son_sat_rvz = .Cells(Rows.Count, "A").End(3).Row + 1
Sheets("REVİZYON").Range("RVZ").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Sheets("REVİZYON").Range("A" & son_sat_rvz), Unique:=False
End With

Sheets("REVİZYON").Range("RVZ") bu formata dikkat edin.
Ha yukarda yazmasam da olurdu. Neden yapamadığınızı kavrayın diye
öyle yazdım. Siz denemenizi yapın.
Ben bu butondaki kodları şöyle bir revize etmeyi deneyeyim.
Bu dosyaya üçüncü bakışım. İlk ikisinde yıldım.
Sanırım Ümit Beyin bakım sayfası dokunuşu dosyayı anlaşılır hale getirmiş.
Anladığım kadarıyla Bakım sayfasından diğer sayfalarda tanımlı alanlara
dağıtım yapmak istiyorsunuz.
Bu sefer kotarırız gibi.

 

[excelcan]

Sayın Hünkar50 BAKIM sayfasından EXTRA, DEVİR, PARÇA, REVİZYON
sayfalarına TextBox2 deki değere göre dağıtım yaparken EXTRA sayfasında
silme işlemi yapmışsınız. Diğerleri için de bu silme işlemi yapılacak mı ?
Yoksa alt alta ekleme mi yapacak ?

 

[Hunkar50]

Sayın Hünkar50 kodlarda o sayfadan bu sayfaya activate ile uzun atlama yapmaktansa
ilgili işlemlerin başına sayfa adı verin. REVİZYON alan adını ben indirdiğim
dosyada RVZ olarak değiştirdim. Gelişmiş filtreleme ile çalışıyorsanız
sütun başlıklarının aynı olmasına dikkat edin. Bir yerde Tahsil Edilen
diğer yerde Alınan sıkıntı yaratır.

Range("revizyon").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Range("A25"), Unique:=False"
a25 tamamen uydurma bir SATIR ( cünki bakım kaçta bitecek belli olmayacak )

yerine şöyle yazın.

With Sheets("REVİZYON")
son_sat_rvz = .Cells(Rows.Count, "A").End(3).Row + 1
Sheets("REVİZYON").Range("RVZ").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("idkriter"), CopyToRange:=Sheets("REVİZYON").Range("A" & son_sat_rvz), Unique:=False
End With

Sheets("REVİZYON").Range("RVZ") bu formata dikkat edin.
Ha yukarda yazmasam da olurdu. Neden yapamadığınızı kavrayın diye
öyle yazdım. Siz denemenizi yapın.
Ben bu butondaki kodları şöyle bir revize etmeyi deneyeyim.
Bu dosyaya üçüncü bakışım. İlk ikisinde yıldım.
Sanırım Ümit Beyin bakım sayfası dokunuşu dosyayı anlaşılır hale getirmiş.
Anladığım kadarıyla Bakım sayfasından diğer sayfalarda tanımlı alanlara
dağıtım yapmak istiyorsunuz.
Bu sefer kotarırız gibi.

 

[Hunkar50]

Sayın Hünkar50 BAKIM sayfasından EXTRA, DEVİR, PARÇA, REVİZYON
sayfalarına TextBox2 deki değere göre dağıtım yaparken EXTRA sayfasında
silme işlemi yapmışsınız. Diğerleri için de bu silme işlemi yapılacak mı ?
Yoksa alt alta ekleme mi yapacak ?

Sayın hocam Extra sayfam müşteri döküm sayfam ..
devir +bakım+parça+revizyon+tahsilat oraya çıkıyor

Gönderecğim dosyada Extra Sayfasında iken Menü Tıklar ve cari sorgular, arama yerine K yazıp kayıt1 secer ve ID sorgula derseniz demek istediğimi anlatmış olurum sanırım.
.
Ben Extra Sayfasında sadece sectiğim ID ye veya Müşteri adına göre arama yapmak ve Örnek : 1 Nolu ID secmişsem sadece 1 Nolu ID ye ait devir +bakım+parça+revizyon+tahsilat işlemlerini Extra sayfasına çekmek istiyorum..

Gönderdiğiniz Kodla revizyon sayfasına yazıyordu. değiştirdim extra sayfasına yazıyor ama kriter aramıyor !!

Size zahmet bakarsanız sevinirim.

Oraya Müşteri sorgulama için se Temizlik Sirketlerinin baktıgı birden fazla bina oldugu için Müşteri aramayı eklemek istiyorum.

 

[excelcan]

Sayın Hünkar50 EXTRA sayfasında hücre koruma, hücre kilitleme, sayfa koruma gibi işlemler var mı ?
Varsa kaldırın lütfen onları.