• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excel sayfasındaki birleştirilmiş veriyi not degerine aktarmak istiyorum makroyla

Ne isteniyor son dolu satıra kadar dolu satırları txt dosyazına yazsınmı istiyor.
bizim de çözüme kavuşturmak istediğimiz nokta tam da ifade ettiğiniz şey.
 
Evren bey emeğinize şimdiden teşekkür ederim. Ancak sonuca yarın bakmak zorunda kalacağım.
 
Kırmızı satırdaki yolu kendi dosyanıza göre uyarlayınız.:cool:
Dosya ekte.:cool:
Option Explicit
Sub txt_aktar1()
Dim hcr As Range, alan As String, deg As String
Application.ScreenUpdating = False
alan = Sheets("KESİNTİ").Range("A4:A" & Sheets("KESİNTİ").Cells(65536, "A").End(xlUp).Row).Address
Range("L4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("L4").Select

'Open "C:\Documents and Settings\Zehni SAĞCAN\Belgelerim\KESİNTİ\İŞÇİ.TXT" For Output As #1
Open "C:\İŞÇİ.TXT" For Output As #1

For Each hcr In Sheets("KESİNTİ").Range(alan)
deg = hcr.Offset(0, 11).Value
If deg <> "" Then Print #1, hcr.Offset(0, 11).Value
Next
Close
MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"
End Sub
 

Ekli dosyalar

mx@raid' Alıntı:
evren bey sizin kodlardan kaynaklanan birşey değil. şu mantıkla yola çıktık, eğer hücre sayısı daha fazla ise örneğin 2000 satırıdan oluşuyor. Dolayısıyla sizin satıra eşitlediğiniz 21 değerinde kalacaktır. Devamındaki satırları okumayacaktır düşüncesinden hareketle bir çözüm olabilir mi yönünde sonuç üretmeye çalıştık. Yani satır sayısı değişken olursa ne olur
Genişletmek için tıkla ...

meraba sevgili hocalarım benim burda anlatmaya çalıştığım olay yazdırma işi tamam ok,, 21 satıra kadar *.txt dosyası oluşuyor ama....

21 satır yazdırdığımız zaman makroyla 22 satır oluşuyor yani 25 satıra kadar iniyor (şimdiyekadar ki çalışmalarda), ben bu bu(*.txt) dosyasını internet ortamına attığım zaman 22 kişi varmış gibi görüyor ve hata veriyor onun için 22 satır olmaması lazım

diğer bir deyişle 1 satırı yazdırsak 2 satır kendiliğinden oluşuyor yani 1 satırın 18 karekter (04389400000011608)burdan itibaren silmesi lazım
 
zehni_33@hotmail.com eklerseniz beni ben izah edecem uygulayarak ne demek istediğimi burda anlatılamıyor hocam ben 21 satır (18 karekter-04389400000011608) da 18 karekterden sonra yazılmasın istiyorum yani 21 satır (18 karekter-04389400000011608) da 18 karekterden sonra aşağı yön tuşu ile inmeye çalıştığımızda inmemesi lazım ama enter tuşu ile inersen iner

sizlere çok teşekür ediyorum irtibata geçersek çözebiliriz
 
zehnisağcan' Alıntı:
zehni_33@hotmail.com eklerseniz beni ben izah edecem uygulayarak ne demek istediğimi burda anlatılamıyor hocam ben 21 satır (18 karekter-04389400000011608) da 18 karekterden sonra yazılmasın istiyorum yani 21 satır (18 karekter-04389400000011608) da 18 karekterden sonra aşağı yön tuşu ile inmeye çalıştığımızda inmemesi lazım ama enter tuşu ile inersen iner

sizlere çok teşekür ediyorum irtibata geçersek çözebiliriz
Genişletmek için tıkla ...
21 satırın toplam karakter uzunluğu 18 karakterden fazla olmasınmı istiyorsunuz.
O zaman 21 satırda olmayabilir tek karakter olsa bir satırda 18 karakter olur en fazla.
Siz ne yapmak istediğiniz açıklayamazsanız sorunuza doğru yanılar alamazsınız.
Biz yaparız yaprız siz bu olmammış böyle olmaz dersiniz.Bizde tekrar yaparız.
Bunun için ben kendimden bahsedeyim,kendi adıma konuşayım,Bu türden belirsiz sorulara cevap yazmaktan kaçınırım.Diğer arkdaşlarda sanırım ayni şeyi düüşünüyorlar.Benim yaptığım son dosya not defterinde 21 satırı geçmiyor geçiyor derseniz sizinle her iddasına girerim. Başkasınada incelettitririm.
Size kolay gelsin.
 
sevgili hocam savolun benim yapmak istediğim sorunun %98 ini halledildi hocalarım sayesinde ben 21 satıra kadar yazıyor *.txt dosyasında ama diyorum ki sevgili hocam ben 22 hücre boşsa exel sayfasında, txt dosyasındaki o satır oluşmasın diyorum imkanı varsa tabiii
 
hocam özür dilerim yani ben zaten konumun başında dedim makro bilmiyorum öğreniyorum diye yazdırma sorunum çözüldü ama makro ile oluşan 22 satır olmamasını istiyorum ama yinede canınız savolsun

kolay gelsin.
 
evren gizlen' Alıntı:
ben anlamıyorum.nasıl 21 satırı aşıyor.
Makroyu çalıştırın ve satırları sayın.eğer 22 satır sayıyorsanız başkasına saydırın.
Kırmızı satoırdaki yolu siz kendinize uyarlayın.dosyadad öyle
dosya ekte.:cool:
Kod: 
option explicit
sub txt_aktar1()
dim hcr as range, alan as string, say as byte
application.screenupdating = false
alan = sheets("kesinti").range("a4:a65536").specialcells(xlcelltypeconstants, 23).address
range("l4").select
range(selection, selection.end(xltoright)).select
range(selection, selection.end(xldown)).select
selection.replace what:="", replacement:=" ", lookat:=xlpart, _
searchorder:=xlbyrows, matchcase:=false, searchformat:=false, _
replaceformat:=false
range("l4").select

'open "c:\documents and settings\zehni sağcan\belgelerim\kesinti\işçi.txt" for output as #1
[b][color="red"]open "c:\işçi.txt" for output as #1[/color][/b]

for each hcr ın sheets("kesinti").range(alan)
say = say + 1
print #1, hcr.offset(0, 11).value
ıf say = 21 then exit for
next
close
msgbox "işçi kesintisi aktarıldı"
end sub
Genişletmek için tıkla ...

evren hocam bu çalışma benim isteğime en yakın çalışma onu belirtiyim. Ama savolun allah razı olsun sizlerden yardımlarınız için 21 satır yazdırılıyor o ok.
ama işçi.txt sayfasını açın aşağı doğru yön tuşu ile inin 22 satıra iner yani yön tuşu ile inilmediği zaman benim işlemim tamam olacak makroda hangi komut yapıyorsa sürekli satır açıyor

yani 22 satır yazılmamış ama oluşmuş

ben size benim kopyala yapıştır yaptığım bir örnek:işçi.txt not defteri var onu atıyorum ekte açın ve aşağı doğru yön tuşu ile inin hocam 22 satıra inecek mi bakın

İLGİNİZ İÇİN TEŞEKÜR EDERİM.
 

Ekli dosyalar

Aşağıdaki kodlarla text dosyası oluşturulduktan sonra, notepad de açılarak
istediğiniz gibi kürsor son kaydın sonuna taşınıyor.

Kod: 
Sub isciTxtAktar()
    Application.ScreenUpdating = False
    Dim SonSatir, i As Integer

    With Sheets("KESİNTİ")
        SonSatir = .[L65536].End(3).Row
        If SonSatir > 3 Then
            Open "C:\isci.txt" For Output As #1
            For i = 4 To SonSatir
                Print #1, Trim(.Cells(i, "L").Value)
            Next i
            Close #1
        End If
    End With

    Shell "notepad c:\isci.txt", vbMaximizedFocus
    SendKeys "^{END}", True
    SendKeys "{BKSP}", True
    SendKeys "%DK", True
    SendKeys "%DÇ", True
    
    MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"

End Sub

Kodlarınızda ki aşağıdaki kısmı niye kullandığınızı da hiç anlamış değilim. Hiçbirşeyi boşlukla değiştiriyorsunuz.

Kod: 
Range("L4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("L4").Select
 
Sn. zehnisağcan umarım sizin istediğiniz sonuca ulaşmıştır.
 

Ekli dosyalar

Son düzenleme:
zehnisağcan' Alıntı:
evren hocam bu çalışma benim isteğime en yakın çalışma onu belirtiyim. Ama savolun allah razı olsun sizlerden yardımlarınız için 21 satır yazdırılıyor o ok.
ama işçi.txt sayfasını açın aşağı doğru yön tuşu ile inin 22 satıra iner yani yön tuşu ile inilmediği zaman benim işlemim tamam olacak makroda hangi komut yapıyorsa sürekli satır açıyor

yani 22 satır yazılmamış ama oluşmuş

ben size benim kopyala yapıştır yaptığım bir örnek:işçi.txt not defteri var onu atıyorum ekte açın ve aşağı doğru yön tuşu ile inin hocam 22 satıra inecek mi bakın

İLGİNİZ İÇİN TEŞEKÜR EDERİM.
Genişletmek için tıkla ...
Bana yolladığınız dosyada imleç birinci satırın ilk karakterinde en başta duruyor.
Buradan ne sonuç çıkaracağımı anlamadım doğrusu.Satır adedide 21 satırdı.
Ne istiyorsunuz bilmiyorum.İmleç diyorsunuz imleç te ilk satırda ilk karakterin önüne konuşlanmış durumda
 
Evren bey zehnisağcan beyin dosyasında alt satırlarda bazı sıkınıtılar var sorun oradan kaynaklanıyor. Verilerin altındaki satırları sildiğimde problem kalkıyor. Zannediyorum zehnisağcan beyin gözünden kaçan nokta burası.
 
Mx@Raid' Alıntı:
Evren bey zehnisağcan beyin dosyasında alt satırlarda bazı sıkınıtılar var sorun oradan kaynaklanıyor. Verilerin altındaki satırları sildiğimde problem kalkıyor. Zannediyorum zehnisağcan beyin gözünden kaçan nokta burası.
Genişletmek için tıkla ...
Ne gibi sıkıntılar var.Bana yolladığı dosyada hiç bir sıkıntı yoktu.Gayet normaldi.
Hayır bunları siz görüyorsunuzda ben niye göremiyorum.Bir türlü anlamadım.:D
 
Evren Gizlen' Alıntı:
Bana yolladığınız dosyada imleç birinci satırın ilk karakterinde en başta duruyor.
Buradan ne sonuç çıkaracağımı anlamadım doğrusu.Satır adedide 21 satırdı.
Ne istiyorsunuz bilmiyorum.İmleç diyorsunuz imleç te ilk satırda ilk karakterin önüne konuşlanmış durumda
Genişletmek için tıkla ...

imleç i benim gönderdiğim örnek dosyada hocam "yön tuşu" ile aşağı doğru indirin yazılan satırdan aşağı inmiyor yani benim istediğim imlecin "22 satıra inmemesi "
 
Mx@Raid' Alıntı:
Evren bey zehnisağcan beyin dosyasında alt satırlarda bazı sıkınıtılar var sorun oradan kaynaklanıyor. Verilerin altındaki satırları sildiğimde problem kalkıyor. Zannediyorum zehnisağcan beyin gözünden kaçan nokta burası.
Genişletmek için tıkla ...

alt toplam olan hücre ve satırlar mı sıkıntı çıkaran o satırı sildim ama öyle denedim
 
Sn. zehnisağcan 71. mesajdaki dosyayı denediniz mi? yazdırma işlemini c: ye atıyor makrodan siz kendinize uyarlayabilirsiniz.
 
hocam evet ben yolun bir kısmını değiştirmiştim sizin 78ci mesajı okuyuncak uyandım tamam oldu sorunum çözüldü
 
hocam sorunum çözüldü 71 dosya ile emeği geçen bütün hocalarıma (Mx@Raid-evrengizlen-veyselemre) SONSUZ TEŞEKÜR EDERİM.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst