Forum
Bildirimler
Hepsini Temizle
Microsoft Office
3
Yazılar
3
Üyeler
0
Reactions
905
Görüntüleme
Konu başlatıcı
Slm Arkadaşlar;
excel deki ad, soyad, email adreslerini csv yapıyorum sonra kişilere ekliyorum ama kişilere eklerken düzeltme çıkıyor o düzeltilecek şeyi hangisine sürükleyip bırakırsam her şey o bölümde görünüyor ekledikten sonra acaba excel dedki email adresleri outlook daki email in karşısına, isim isimin karşısına geçecek şekilde eklemem mümkün müdür.
bu aşağıdaki sitede nasıl ekleneceğini göstermiş ama o hata ile ilgili birşey göstermemiş bu konuda bilgisi olan arkadaşlardan bekliyorum
Gönderildi : 11/07/2012 19:18
Merhabalar,
Outlook ile kişi bilgilerini al derseniz karşılıklı eşleştirebilirsiniz. Ama outlook başlıklarına göre düzenleminiz lazım veya elle seçip bu alan bilgisini şu alandan al diyebiliyorsunuz.
Gönderildi : 13/07/2012 19:44
Seçili alanı CSV dosyasına çevirmek için bu kodları kulanabilirsiniz;
Sub Emre()
Dim Rky$, sat&, r&, sut%, c%, veri, hucre As Range
Set hucre = Application.Intersect(Selection, ActiveSheet.UsedRange)
sut = hucre.Columns.Count
sat = hucre.Rows.Count
Rky = ThisWorkbook.Path & "\Rky.csv"
Open Rky For Output As #1
For r = 1 To sat
For c = 1 To sut
veri = hucre.Cells(r, c).Value
If IsNumeric(veri) Then veri = Val(veri)
If IsEmpty(hucre.Cells(r, c)) Then veri = ""
If c <> sut Then
Write #1, veri;
Else
Write #1, veri
End If
Next c
Next r
Close #1
MsgBox hucre.Count & " hücre Export edildi. " & Rky, vbInformation
End Sub
Gönderildi : 16/05/2014 05:18
