Bu şablon, "bilgiler" sayfasındaki kişi listesini telefon ve e-posta programlarının içe aktarabildiği tek bir VCF (vCard) dosyasına dönüştürür. Dönüştürme işlemi dosyadaki makro ile yapılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Çıktı, kullanıcı profilinizdeki Desktop klasörüne Kisilerim.VCF adıyla kaydedilir. Dosya adını ya da kayıt yerini değiştirmek için makrodaki şu satırı düzenleyebilirsiniz:
Makroda dosya silme veya dışarıya bağlantı kuran bir kod görünmüyor; yalnızca masaüstüne metin dosyası yazılıyor.
Dikkat: Makro verileri "contacts" adlı sayfadan okuyacak şekilde yazılmıştır, ancak dosyadaki sayfanın adı "bilgiler" olarak görünmektedir. Makro hata verirse sayfa adını "contacts" yapın ya da koddaki sayfa adını "bilgiler" olarak değiştirin.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
Dosyada "bilgiler" adlı tek bir sayfa vardır. Veriler A1:H177 aralığındadır ve 3. satırdan itibaren 10 örnek kişi kaydı bulunur. Sütunlar şunlardır:- A: ADI
- B: SOYADI
- C: ADI SOYADI
- D: E-POSTA
- E: İŞ TELEFONU
- F: EV TELEFONU
- G: ŞİRKET
- H: GÖREV
Kullanılan formüller
=A3 & " " & B3: C sütununda adı ve soyadı birleştirerek tam adı oluşturur. Formül aşağı doğru kopyalanmıştır.
Makrolar
Dosyada Module1 içinde excelTovcf adlı bir makro vardır. Makro, 3. satırdan başlayarak A sütunu boş olana kadar her satırı okur. Her kişi için ad, soyad, tam ad, şirket, görev, ev telefonu, iş telefonu ve e-posta bilgilerini içeren bir vCard (sürüm 3.0) kaydı yazar. İşlem bitince kaç kaydın dönüştürüldüğünü bildiren bir mesaj gösterir.Çıktı, kullanıcı profilinizdeki Desktop klasörüne Kisilerim.VCF adıyla kaydedilir. Dosya adını ya da kayıt yerini değiştirmek için makrodaki şu satırı düzenleyebilirsiniz:
OutFilePath = VBA.Environ$("UserProfile") & "\Desktop\Kisilerim.VCF"
Dikkat: Makro verileri "contacts" adlı sayfadan okuyacak şekilde yazılmıştır, ancak dosyadaki sayfanın adı "bilgiler" olarak görünmektedir. Makro hata verirse sayfa adını "contacts" yapın ya da koddaki sayfa adını "bilgiler" olarak değiştirin.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Kişi bilgilerinizi 3. satırdan başlayarak sütunlara girin. Satır arasında boşluk bırakmayın, çünkü makro ilk boş A hücresinde durur.
- Alt+F8 tuşlarıyla makro listesini açın ve excelTovcf makrosunu çalıştırın.
- Masaüstünüzde oluşan Kisilerim.VCF dosyasını telefonunuza ya da e-posta programınıza içe aktarın.