Sayfa 2 ye makro yardımı ile veri aktarmak

[akmes]

Üstadım kolay gelsin;Gönderdiğim ekteki örnektede anlaşılacağı gibi sayfa 1 deki B sütünun daki firma ve müşteri isimleri yazılı satırların bulunduğu tüm sütun bilgilerini sayfa 2 ye bir makro yardımı ile aktarmak istiyoruz.Aktarırken D sütunundaki boşlukların kalkmasını ve sağa hücrenin sağa yaslanmasını,E sütunudaki bazı verilerin önündeki "TC:" verisinin kalkmasını verinin sağa yaslanmasını ve G sütunundaki virgülden sonraki kısımlarından alınmayarak yine sağa yaslanmasını istiyoruz.Yardımlarınız içim şimdiden çok teşekkür ederiz.

 

[halit3]

Üstadım kolay gelsin;Gönderdiğim ekteki örnektede anlaşılacağı gibi sayfa 1 deki B sütünun daki firma ve müşteri isimleri yazılı satırların bulunduğu tüm sütun bilgilerini sayfa 2 ye bir makro yardımı ile aktarmak istiyoruz.Aktarırken D sütunundaki boşlukların kalkmasını ve sağa hücrenin sağa yaslanmasını,E sütunudaki bazı verilerin önündeki "TC:" verisinin kalkmasını verinin sağa yaslanmasını ve G sütunundaki virgülden sonraki kısımlarından alınmayarak yine sağa yaslanmasını istiyoruz.Yardımlarınız içim şimdiden çok teşekkür ederiz.

bu kodu denermisiniz.

Sub AKTAR()
Worksheets("Sayfa2").Columns("A:G").ClearContents
sat = Worksheets("Sayfa2").Cells(Rows.Count, "B").End(3).Row
For r = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
If Sheets("Sayfa1").Cells(r, 7).Value > 0 Then
Sheets("Sayfa2").Cells(sat, 1).Value = Sheets("Sayfa1").Cells(r, 1).Value
Sheets("Sayfa2").Cells(sat, 2).Value = Sheets("Sayfa1").Cells(r, 2).Value
Sheets("Sayfa2").Cells(sat, 3).Value = Sheets("Sayfa1").Cells(r, 3).Value
Sheets("Sayfa2").Cells(sat, 4).Value = Val(Trim(Sheets("Sayfa1").Cells(r, 4).Value))
Sheets("Sayfa2").Cells(sat, 5).Value = Val(Trim(Sheets("Sayfa1").Cells(r, 5).Value))
Sheets("Sayfa2").Cells(sat, 6).Value = Val(Trim(Sheets("Sayfa1").Cells(r, 6).Value))
Sheets("Sayfa2").Cells(sat, 7).Value = Val(Trim(Sheets("Sayfa1").Cells(r, 7).Value))
sat = sat + 1
End If
Next r
End Sub

 

[tahsinanarat]

Dosyanız ekte.

 

[akmes]

Halit üstadım ilginiz için çok teşekkür ederim.
Tahsin kardeşim eline sağlık tam istediğim gibi olmuş...

Kolay gelsin;

 

[tahsinanarat]

Sayfa2 ye aktarma yaptıktan sonra G sutunundaki virgülden sonrakileri silmediğini farkettim, aynı dosyada güncelleme yaptım. Bilgilerinize.

 

[akmes]

Evet şimdi bende onu farkettim. Vallahi ilgin çok sağol kardeşim.Kolay gelsin.

 

[halit3]

Halit üstadım ilginiz için çok teşekkür ederim.
Tahsin kardeşim eline sağlık tam istediğim gibi olmuş...

Kolay gelsin;

iyi çalışmalar

 

[akmes]

Arkadaşlar tekrar selamlar, virgülden sonra veri silme işlemindeki makroyu çalıştırırken bir sorun olduğunu farkettim konu ile ilgili excel örneğini ekte gönderiyorum.Bazı satırlardaki virgül öncesi kısımlarıda siliyor bu sorunu birtürlü aşamadım bu konuda yardımınızı rica ediyorum.

 

[Orion1]

ilgili satırı aşağıdaki ile değiştiriniz.
Sorunuzda yanlış ayrıca.vvirgülden sonra olamamılıtdıiZira ondalık ayıraç windwos ing yüklü bilgisiyarlarada noktada olabilirdi.
Tam sayıya çevirmek istiyorum demeliydiniz.
Buyurun aşğıdaki kırmızı renkli kodla sayınız tam sayıya çevriliyor.

Sub tamsayi_59()
Dim lastrow As Long
Dim cell As Range
On Error Resume Next
lastrow = Cells(Rows.Count, "g").End(xlUp).Row
For Each cell In Range("g1:g" & lastrow)
[B][COLOR="Red"]cell.Value = Int(cell.Value)[/COLOR][/B]
Next
End Sub

 

[akmes]

Üstadım çok teşekkür ederim.Sürç_ü lisan ettiysek af ola

 

[Orion1]

Üstadım çok teşekkür ederim.Sürç_ü lisan ettiysek af ola

Estafurulla .Sürçü lisan değilde sorunuzu hatalı soruyorsunuz demek istemiştim.
Kolay gelsin.

 

[halit3]

Arkadaşlar tekrar selamlar, virgülden sonra veri silme işlemindeki makroyu çalıştırırken bir sorun olduğunu farkettim konu ile ilgili excel örneğini ekte gönderiyorum.Bazı satırlardaki virgül öncesi kısımlarıda siliyor bu sorunu birtürlü aşamadım bu konuda yardımınızı rica ediyorum.

2 nolu mesajdaki kodu denedinizmi?