Soru Talep edilen Personel Ataması

[mab82981]

Temizleme makrosu ne işe yarıyor ? eski verileri otomatik silmesi için mi ?

 

[Baturfurkan]

Yeniden bi görev ataması yapmak için, Çıktı sayfasını (yada test) sayfasını temizlemek için kullanılabilir kullanılabilir bir makro. Ben yazacağım ama yazdığınız kodun bozulmaması için sizden rica ettim. Şöyle yapsam sıkıntı olur mu?
Sheets("test").select
Range("ilgili hücreler").select
Selection.ClearContest

 

[mab82981]

Hocam test sayfasını istediğiniz gibi değiştirebilirsiniz. Adı değişirse eğer kod sayfasında değiştirmeniz yeterlidir. Değişmemesi gerekenler talep sayfasında görevlerin 3. satırdan başlaması, amir sayısı B, erkek sayısı C ve kadın sayısının D sütununda olmasıdır.Ayrıca amir ,erkek ve kadın personel sayfalarında başlıkların 2. satırda ilk personelin ise 3 ten itibaren dizilmesi önemli.

 

[mab82981]

https://www.dosyaupload.com/69vd
Bu dosyayı indirin yeni veri oluşturmadan eski görevleri siliyor. Test isimli sayfayı çıktı sayfası olarak değiştirdim

 

[Baturfurkan]

Hocam çok teşekkür ederim bir şey sorabilir miyim? İş bittikten sonra bir şeyler eklemekten rahatsız olurum ki zaten siz en başında isteklerinizin hepsini belirtin demiştiniz. Ama yeni bir şey çıktı. Olabilirse iyi olur olmazsada gerek yok o kadar güzel bir programla yaptınız ki işimi çok rahatlatacak ellerinize sağlık.

Talep sayfasında Amir, Erkek, Kadının bir yanındaki sütuna yazdığım sayı kadar boş sütun ekleme şansımız var mı? Mesela 1 amir 2 erkek 2 kadın ve yanına da 3 yazdım. Çıktı sayfasına 1 amir 2 erkek ve 2 kadın ekledikten sonra altına 3 boş satır ekleyecek.

 

[mab82981]

Hocam bende yeniyim excelde öğrenmek için forumlarda gezip çözüyorum soruları uğraşmadan olur mu olmaz mı bilemem yarın bir kontrol ederim ama , şuan bilgisayarım yok.

 

[Baturfurkan]

Hocam bende yeniyim excelde öğrenmek için forumlarda gezip çözüyorum soruları uğraşmadan olur mu olmaz mı bilemem yarın bir kontrol ederim ama , şuan bilgisayarım yok.

Kendinizi ne güzel geliştirmişsiniz Hocam helal olsun. Tamamdır çok teşekkür ederim tekrardan ellerinize sağlık, olabiliritesi varaa haber verirsiniz. Allaha emanet olun

 

[Baturfurkan]

https://www.dosyaupload.com/69vd
Bu dosyayı indirin yeni veri oluşturmadan eski görevleri siliyor. Test isimli sayfayı çıktı sayfası olarak değiştirdim

Hocam Bu çıktı Sayfasındaki her bir görev tablosunu çerçeveleme işini nasıl yaparız? Birde Çıktı Sayfasındaki her bir görevin başına
""Sıra No Sicil Rütbe Ad / Soyad Çalıştığı Birim Telefon"" yazmasına gerek yok. Bunu nasıl kaldırabilirim hangi formulü değiştirmeliyim?

 

[mab82981]

https://www.dosyaupload.com/ey5B

hocam bu boş satır eklemek için düzenlenen dosyadır. Görevlerde kadın sayısından sonra yazdığınız kadar boşluk bırakır.

 

[mab82981]

Hocam çerçeveden kastınız nedir? Excel özelliklerini bilmiyorum henüz o yüzden anlamadım. Kod olmadan nereden yapılıyor falan örnek verebilir misiniz.

 

[Baturfurkan]

Hocam çerçeveden kastınız nedir? Excel özelliklerini bilmiyorum henüz o yüzden anlamadım. Kod olmadan nereden yapılıyor falan örnek verebilir misiniz.

Teşekkür ederim. Hocam ilk attığım örnek dosyada Çıktı sayfasında her bir görev çerçevelenmiş oradan da inceleyebilirsiniz. https://www.dosyaupload.com/alkQ İlgili görseli de ekledim;

 

[Baturfurkan]

Şöylede bir kod buldum sayfanın kod kısmına yapıştırdığımızda dolu olan hücreleri otomatik çerçeveliyor, Acaba bunu bizim makroya uygulama imkanımız var mıdır?
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

 

[Baturfurkan]

https://www.dosyaupload.com/ey5B

hocam bu boş satır eklemek için düzenlenen dosyadır. Görevlerde kadın sayısından sonra yazdığınız kadar boşluk bırakır.

Bu şekilde çok güzel olmuş elinize sağlık, Çıktı Sayfasındaki her bir görevin başına ""Sıra No Sicil Rütbe Ad / Soyad Çalıştığı Birim Telefon"" yazmasına gerek yok, kodda nasıl bi değişiklik yapmamız lazım peki hocam?

 

[mab82981]

https://www.dosyaupload.com/alX6
Çerçeve yapan halidir.

 

[mab82981]

https://www.dosyaupload.com/ey6e
Başlıkları kaldırdım. Çerçeve devam ediyor. Çerçeveler arası ayırım belli olsun diye verilerden sonra ki bir satır boşluk çerçeveye dahil değil. Sayenizde çerçeve nedir öğrendik ) Anladığım kadarıyla tablo oluyor bu.

 

[mab82981]

https://www.dosyaupload.com/ey6h
Az önceki dosyayı değil bunu kullanın, son halidir.

 

[muhasebeciyiz]

Bu nasıl site arkadaş. Dosya indirmek için para mı verilir. Alın siteniz sizin olsun hayrını görmezsiniz umarım. (Baturfurkan hocam sizinle ilgili değildir. Dosyayı indirip bakmak isteyince karşıma çıktı yazdım.)

Sayın mab82981, fikrinizi söylemek doğal hakkınızdır.Belki sizin şartlarınıza uygun değildir,olabilir.Dediklerinizi hoş karşılamak gerekir.

Şunu bilmenizi isterimki burası son derece seviyeli , saygılı ve anlayışlı bir forum’dur.

Kimi zaman paradan daha önemli şeyler vardır.Dostluk gibi işte bizde ve bu forumda bu kavram vardır.

Size illede para veriniz diyen de yok. Sayın mab82981, biz karşılık beklemeden bu siteyi yaşatmak adına sembolik olan altın üye oluruz.

Burada para mevzu bahis olmadığı, kazanç söz konusu olmadığı için hayır görmezsiniz sözünüz sizde kalsın.Sizin bahsettiğiniz hayrın anlamı bu forumla ilişkilendirilemez.

Desteğimiz sonsuz.Siz,biz ve herkes bu forumdan faydalanabilsin.

Bu sitemizin, arkadaşlarımızın hoş görüsü.Veremediğiniz için üzülmeyin ama forum Yönetiminide lütfen rencide etmeyin,yıpratmayın.

 

[mab82981]

Sizin söylediklerinizi anlıyorum ancak söz ettiklerimin cebimden çıkacak para ile ilgisi yok. Altın üyelik için vereceğim para benden bir şey götürmeyecek ancak ben karşılıksız olarak bu dosyalara bakıyorum, sorunları çözmeye çalışıyorum. Tanımadığım insanın ne işe yarayacağını bilmediğim dosyası için saatleri mi veriyorum kimi zaman. Bu işin sonunda ise insanların demek ki bu site işe yarıyormuş, kullanıcısı çok, altın üye olalım belki sorunlarımız daha çabuk çözülür demesini istemiyorum. Dediğiniz gibi mesele para meselesi değil yani. Benim karşılıksız yardımım bir şekilde karşılık yaratmasın. Sizin görüşünüz farklı olabilir, doğaldır. Ancak kendi görüşüm bu yönde ve bu yüzden forumdan bu başlıkta ki dosyayı halledebilmek adına kaldım. Bu başlık altında ki dosya çözülürse ayrılacağım. Görüşünüz için teşekkür ederim.

 

[Baturfurkan]

https://www.dosyaupload.com/ey6h
Az önceki dosyayı değil bunu kullanın, son halidir.

Hocam daha isminizi de bilmiyorum ama Allah razı olsun. Çok ama çok teşekkür ederim sayenizde bir kaç saatlik işi saniyeler içinde yapabiliyorum artık. Program çok güzel çalışıyor. Tam olarak ihtiyacımı da karşılıyor. Hazırladığınız kodlar için, ilgili ve alakanız için ve değerli zamanınızdan ayırdığınız için çok teşekkür ederim. Sizi bu platformda göremeyecek olmak bizi üzecek. Herhangi bir ihtiyacınız olursa, yada iletişim geçmek istediğinizde lütfen çekinmeyin;
furkanbatur.tr@gmail.com

 

[mab82981]

Önemli değil hocam yardımcı olmuşsak yeterlidir. Kontrol noktalarını bana atsanız da geçmesem yeter. Tipimizden midir bilinmez ama istisnasız her defasında kimlik istedikleri kişi ben oluyorum ) iyi günler size kolay gelsin