excelden notepade aktarım

[demirtas]

Merhaba,

Ekte excelde seçili olan bölgeyi bizim belirleyeceğimiz isimle masaüstünde notepade aktaran dosya var. Nitekim bu kodları da bu siteden almıştım. Şu an kimin yazdığını hatırlayamıyorum ama iyi ki yapmış, yaptığım işi çok kolaylaştırıyor çünkü..

Sorunum şu ki; seçili olan alandaki hücrelerin uzunluklarını kontrol etsin 16 veya 22 hane değilse bana msgbox ile hata oluştu yazsın. Kodların tam olarak nasıl çalıştığından emin olamadığım için hangi satıra müdahele etmem gerektiğini bulamadım.

Yardımcı olabilecek varsa sevinirim..

 

[hamitcan]

Önceki ile değiştirin.

Sub aktar()
    a = Environ("UserName")
    Dim inputname As Variant
    For Each hcr In Selection
        If Len(hcr) <> 16 Or Len(hcr) <> 22 Then MsgBox "Hata oluştu": Exit Sub
    Next
    inputname = InputBox("Notepad name", "Text dosyasına isim verin.")
    If inputname = "" Then Exit Sub
    WriteRangeToTextFile Selection, "C:\Documents and Settings\" & a & "\Desktop\" & inputname & ".txt", " "
    Shell "notepad.exe C:\Documents and Settings\" & a & "\Desktop\" & inputname & ".txt", vbNormalFocus
End Sub

 

[demirtas]

Sn. Hamitcan,

kodda yaptığınız değişikliği anladım ve güzel olduğunu düşündüm ama çalışmadığını söylesem..
hata oluştu mesajına gidiyor tam olarak Hücrenin uzunluğu 16 ya da 22 olduğu halde bunu göremiyor. Or dan sonra yazılan ikinci len kısmını çıkarttığımda ise çalışıyor tek başına. İki koşulu da test etmesi mümkün değil mi?

 

[hamitcan]

Bir de böyle dener misiniz?

For Each hcr In Selection
    If Len(CStr(hcr)) = 16 Or Len(CStr(hcr)) = 22 Then
        Else
            MsgBox "Hata oluştu": Exit Sub
    End If
Next

 

[demirtas]

Sn. Hamitcan,

Elinize sağlık, çok teşekkür ederim, gayet güzel çalışıyor. İşimde yapabileceğim bir hatayı ortadan kaldırmamı sağladınız)

 

[altay76]

arkadaşlar bende bu dosyayı kullanarak a sutunundaki verilerimi toplam sectırıp sadece veri olanları masa ustune ıstedıgımız bır ısımle kayıt etmek ıstıyorum yardımcı olabılecek varmı

 

[altay76]

ayrıca arkadaşlar bu a sutunudakı verılerımı baska bır ısımle text ye aktarabildiğimiz gibi baska bır ısım vererek excel sayfasınada aktarmak istiyorum

 

[altay76]

kımse yokmu bır ufaktan ip ucu verecek

 

[baykala]

ecxel to txt

bir zamanlar bana da lazım olmuştu... örneği incelersen.. belki işine yarar...

Dikkat c:\veri\ klasörüne çıkarır

zatem şifre koruma filan da yok vba kodlarını istediğin gibi değiştirebilirsin...

http://www.excel.web.tr/showthread.php?t=40374