Excel Soru-Cevap Vol17

Soru: Bir çalışma sayfasındaki rasgele bir hücrenin (B5) her seçilerek değişmesinde (Doğrulama list (Validation)'den yapılan değiştirme) yeni bir çalışma sayfası (worksheets) eklesin ve worksheets.name=Range("B5").Value olsun istiyorum.Buraya kadar tamam ancak B5' de yeni seçtiðim ad daha önce açılmış worksheets'ler arasında varsa beni uyarsın ve yeni çalışma sayfası açmasın istiyorum. Daha önce açılmış çalışma sayfalarının isimleri arasında B5' in yeni değerinin var olup olmadığı nasıl yaptırılır.
Cevap: Bu sorduğunuz sorunun detayını bu ayki PCMAGAZINE dergisinde Excel Makroları bölümde detaylı olarak anlatmıştım. Dilerseniz konunun detayları için dergiyi gözden geçirin. ben sizin sorunuzun cevabı olan makro kodunu aşağıda verdim.

Sub SayfaAra()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Range("B5").Value Then
MsgBox "Bu isimde bir sayfa var"
Exit Sub
End If
Next i
End Sub

23-24-25 Mart

Bu hafta kullanım raporları gelmediği için onları daha sonraki günlerde yapmak zorunda kaldım. Sistemden kaynaklanan bir sorun yüzünden diğer gün geldi.

Bu hafta yeni stajyerle beraber Bebe Money Kartlarının basımlarıyla ilgilendik. Ona kartların basım koşullarını, hangi resimlerin kabul edilip edilmeyeceğini, müşteriye ait olan bilgileri nasıl alıp listeye ekleyeceği gösterdim. 

Bittikten sonra Kart basım şirketine onun maili üzerinden(bende cc'de yer aldığım) bir mail düzenledik ve gönderdik. Onlar kartların basımı bittikten sonra da bize geri dönüş maili atarak haber verdiler. Bizde kargo firmasıyla görüşüp kartların hazır olduğunu yönlendirme yapmalarını istedik.

16-17-18 Mart

Bu hafta insertün yeni sayısı çıkacağı için sadece pazar gününün raporunu hazırladım ve herkese gönderdim.

Reklam departmanın yeni gelen insertleri almaya gittim. Herkesin masasına birer tane bıraktım. Kendime fazladan bir tane daha aldım. İnsertte bulunan money club kampanyalarını işaretlemem gerekiyordu. Onları işaretledikten sonra dosyaladım. Far ürünlerinin bir listesini çıkardım. 

Bu konuyla ilgilenmesi için işe başlayan yeni üniversite stajyerine ne yapması gerektiğini , işleyişin nasıl olduğunu anlattım. Benim yaptığım bazı işleri ona devrettim. Hiç bir şey bilmediği içinde bu hafta ona yapacağı işleri detaylıca anlatarak ve göstererek yapmaya başladım. Bebe Money ve Sms gönderimini anlatarak birazını onun uygulayarak yapmasını istedim. Eksik kaldığı yerlerde benden yardım isteyerek birlikte işleri bitirmeye çalıştık

9-10-11 Mart

Bu hafta sadece cumartesi ve pazar gününe ait olan puan kullanım raporlarını hazırladım. ve herkese maille gönderdim.

Muhaberata indim. Gelen kargoların hepsini alarak sahiplerine verdim. Bana gelenleride sonradan yapmak üzere bıraktım. Gelenlerin içinde sadece Kayıt edilen yat kartların belgeleri vardı.

Gelen faturaların girişleri yaparak, referans numaralarını faturaların üzerine yazdım. Sonra direktörün imzası gerektiği için dosyanın içine bıraktım. Hepsi imzalandıktan sonra birer kopyasını aldım. Muhasebe depatmanında bizim departmanın işleriyle ilgilenen kişiye faturanın asıllarını bıraktım. Kopyalarını da faturlar klasörüne yerleştirdim. 

Gelen birakç e-faturayı da giriş yaptım ve kopyalarını alarak muhasebeye götürdüm.