Excel ile Telefon Rehberi Oluşturma & Aktarma скачать в хорошем качестве

Excel ile Telefon Rehberi Oluşturma & Aktarma

Bu videoda, Excel'de oluşturduğunuz telefon rehberini nasıl VCF (vCard) dosyasına dönüştürebileceğinizi ve bu rehberi telefonunuza nasıl aktarabileceğinizi adım adım anlatıyorum. Kolay ve hızlı bir şekilde rehberinizi düzenleyip telefonunuza yüklemek için bu videoyu izleyin! Kullandığım formüller: =YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY (YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY (YERİNEKOY(YERİNEKOY(I2;"İ";"I");"Ç";"C");"Ş";"S") ;"Ö";"O");"Ü";"U");"Ğ";"G");"ı";"i");"ç";"c");"ş"; "s");"ö";"o");"ü";"u");"ğ";"g") VCARD Kodu: Sub ExportToVCard() Dim ws As Worksheet Dim vCardFile As String Dim i As Integer Dim lastRow As Long Dim vCardContent As String Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını uygun şekilde değiştirin lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row vCardFile = Application.GetSaveAsFilename(FileFilter:="vCard Dosyası (*.vcf), *.vcf") If vCardFile = "False" Then Exit Sub For i = 2 To lastRow ' 2. satırdan başlar, 1. satır başlıklar vCardContent = "BEGIN:VCARD" & vbCrLf vCardContent = vCardContent & "VERSION:3.0" & vbCrLf vCardContent = vCardContent & "FN:" & ws.Cells(i, 1).Value & " " & ws.Cells(i, 2).Value & vbCrLf vCardContent = vCardContent & "TEL:" & ws.Cells(i, 3).Value & vbCrLf vCardContent = vCardContent & "EMAIL:" & ws.Cells(i, 4).Value & vbCrLf vCardContent = vCardContent & "ADR:" & ws.Cells(i, 5).Value & vbCrLf vCardContent = vCardContent & "ORG:" & ws.Cells(i, 6).Value & vbCrLf vCardContent = vCardContent & "END:VCARD" & vbCrLf Open vCardFile For Append As #1 Print #1, vCardContent Close #1 Next i MsgBox "vCard dosyası başarıyla oluşturuldu! Veysel ÖZDENK'e Teşekkürler. :)", vbInformation End Sub 📌 Videoda Neler Var? Excel'den VCF dosyası oluşturma VCF dosyasını telefona aktarma İpuçları ve püf noktaları 🔔 Abone olmayı ve bildirimleri açmayı unutmayın! 👍 Beğendiyseniz videoyu beğenmeyi ve yorum yapmayı unutmayın! Başka Sorunuz varsa aşağı yorum olarak yazın elimden geldiği kadar yardımcı olmaya çalışayım.Bana destek olmak adına bu video yu "BEĞENMEYİ" bu teknoloji çağında "BİLGİ PAYLAŞTIKÇA GÜZELDİR" sloganıyla Arkadaşlarınıza Tavsiye etmeyi unutmayın. Kanalımdaki videolarımı kaçırmamak için ücretsiz abone olun: "https://bit.ly/veysel-ozdenk" Diğer Videolarım: #Excel #TelefonRehberi #VCF #vCard #ExcelToVCF #TelefonAktarma #RehberAktarma