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

[zehnisağcan]

MERHABA SEVGİLİ HOCALRIM ÖNCELİKLE FORUM UN 5 YILINI KUTLUYORUM

BENİM SORUNUM ŞU HOCALARIM ;

BEN ADEM ÇETİN ATLI EXELDEKİ KESİNTİ SAYFASINDAKİ BİRLEŞTİRİLMİŞ *.TXT 1 - *.TXT 2 SUTUNUNDAKİ, VERİLERİ AYRI AYRI SÖZLEŞMELİ VE İŞÇİ OLMAK ÜZERE NOTDEFTERİNE (txt) ATMASINI İSTİYORUM

NOT:EXEL VE NOT DEFTERİ ÖRNEĞİM EKTEDİR.

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKÜR EDİYORUM....

 

[zehnisağcan]

"Sub txt_aktar1()
Dim SonSatir, i As Integer
Application.ScreenUpdating = False
SonSatir = Sheets("KESİNTİ").[A65536].End(3).Row

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
For i = 4 To SonSatir
Print #1, Cells(i, 12)
Next i
Close
MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"
End Sub
"
bu kotlama ile işçi.txt dosyası oluşturuyorum ama , oluşturmuş olduğum dosyayı actığımda 21 kişi olması gerek ama 23 satır ekliyor normal 21 inci satırın sonunda kesmiyor 22 dememesi lazım bu sorunumu cözmemde yardımcı olurmusunuz

 

[Orion1]

A sütununda 22nci ve 23ncü satırdaki hücrede veri olabilir.Kontrol edin.Eğer boş gözüküyorsa o hücreleri seçin ve F2 tuluna basın belkide boşluk karakteri girlmiştir bu hücrelere veya formül vardır bu hücrelerde.

 

[zehnisağcan]

A sütununda 22nci ve 23ncü satırdaki hücrede veri olabilir.Kontrol edin.Eğer boş gözüküyorsa o hücreleri seçin ve F2 tuluna basın belkide boşluk karakteri girlmiştir bu hücrelere veya formül vardır bu hücrelerde.

evet var hocam ama ben txt dosyasını sisteme atacağımdan 21 kişinin satırı lazım 22 dememesi lazım txt de

 

[Orion1]

formül var ise son satırı bulmak için CountA worksheetfunction'unu kullanarak son satırı alınız.

 

[zehnisağcan]

"Sub txt_aktar1()
Dim SonSatir, i As Integer
Application.ScreenUpdating = False
SonSatir = Sheets("KESİNTİ").[A65536].End(3).Row

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
For i = 4 To SonSatir
Print #1, Cells(i, 12)
Next i
Close
MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"
End Sub
"
bu kotlama ile işçi.txt dosyası oluşturuyorum ama , oluşturmuş olduğum dosyayı actığımda 21 kişi olması gerek ama 23 satır ekliyor normal 21 inci satırın sonunda kesmiyor 22 dememesi lazım bu sorunumu cözmemde yardımcı olurmusunuz

bu formülde nasıl uyarlarım bilmiyorum macroyu öğreniyorum hocam

ilginiz için teşekürler

 

[zehnisağcan]

pazartesi görüşürüz hocam bu formülü düzeltiverirseniz teşekür ederim.

 

[Orion1]

Worksheetfunction.counta ile olmuyormuş.Değişik bir yöntem kullandım.
Aşağıdaki kodları denermisiniz.

Sub txt_aktar1()
Dim hcr As Range, alan As String
Application.ScreenUpdating = False
alan = Sheets("KESİNTİ").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\KESİNTİ\İŞÇİ.TXT" For Output As #1
For Each hcr In Sheets("KESİNTİ").Range(alan)
Print #1, hcr.Offset(0, 11).Value
Next
Close
MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"
End Sub

 

[zehnisağcan]

eski makroyu silip bunu aynı yere yapıştıracam dimi hocam

 

[Orion1]

eski makroyu siliyim mi hocam

Evet onu silin bunu onun yerine yapıştırın.

 

[zehnisağcan]

teşekürler ilginiz için;

 

[Orion1]

teşekürler ilginiz için;

Rica ederim.
İyi çalışmalar.

 

[zehnisağcan]

Meraba evren hocam makroyu sözleşmeli içinde uyarladım ama ,

bu makro benim bir sorunumu çözmüyor oda şu;

not defterindeki (işçi için) 21 satırın sonunda olması lazım kursör veya not defterinde 22 satıra geçmemesi lazım

teşekür ederim bir kez daha

kolay gelsin;

 

[Orion1]

Aşağıdaki kod 22 satırı geçmez.

Sub txt_aktar1()
Dim hcr As Range, alan As String, say as byte
Application.ScreenUpdating = False
alan = Sheets("KESİNTİ").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\KESİNTİ\İŞÇİ.TXT" For Output As #1
For Each hcr In Sheets("KESİNTİ").Range(alan)
[B][COLOR="Red"]say=say+1[/COLOR][/B]
Print #1, hcr.Offset(0, 11).Value
[B][COLOR="Red"]if say=22 then exit for[/COLOR][/B]
Next
Close
MsgBox "İŞÇİ KESİNTİSİ AKTARILDI"
End Sub

 

[zehnisağcan]

hata veriyor hocam yeni eklenen makrolarda

 

[Orion1]

hata veriyor hocam yeni eklenen makrolarda

Kodları alıp tekrar denermisiniz.

 

[zehnisağcan]

yine not defterindeki 22. satıra geciyor hocam

sizede zahmet veriyorum ama size çok teşekür ederim.

 

[zehnisağcan]

makro

hocam size rahatsızlık veriyorsam bilmeyerek özür dilerim not defterinde 22 . satıra geçiyor

ekteki gibi olması gerekmektedir. hocam aşağı inme tuşu ile inin 22.satıra geçmiyor 21.satırın sonunda 22.satırdan sonrasını silmesi lazım hocam

teşekürler

 

[zehnisağcan]

hocam baktınız mı örneğe

 

[Orion1]

yine not defterindeki 22. satıra geciyor hocam

sizede zahmet veriyorum ama size çok teşekür ederim.

Kodda ilgili satırı aşıdaki ile değiştiriniz.

[COLOR="Red"][B]if say=21 then exit for[/B][/COLOR]