Veri aktarma

[nihatsoylu]

Arkadaşlar merhaba
Verileri sıralama ve biçimlendirme ile ilgili sorum ektedir.
Yardımlarınız için şimdiden teşekkürler

 

[nihatsoylu]

Arkadaşlardan yardım bekliyorum

 

[ynmcan]

Arkadaşlar merhaba
Verileri sıralama ve biçimlendirme ile ilgili sorum ektedir.
Yardımlarınız için şimdiden teşekkürler

Syn. Nihatsoylu;
Sorunuzun ikinci kısmı için çözüm.
Ekteki dosyayı inceleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
For sat = 2 To .Range("B65536").End(3).Row
If Len(.Cells(sat, 2)) = 7 Then
.Cells(sat, 2) = Format(.Cells(sat, 2), "###"" ""##"" ""##")
End If
If Len(.Cells(sat, 2)) = 8 Then
.Cells(sat, 2) = Format(.Cells(sat, 2), "###"" ""##"" ""###")
End If
Next sat
End With
End Sub

 

[nihatsoylu]

Arkadaşım teşekkürler.
İstediğim gibi olmuş..Birinci kısmı için de uğraşırsanız sevinirim

 

[ynmcan]

Arkadaşım teşekkürler.
İstediğim gibi olmuş..Birinci kısmı için de uğraşırsanız sevinirim

Syn. Nihatsoylu;
Sorunuzun birinci kısmı için çözüm.
Ekteki dosyayı inceleyin.

Sub aktar()

Set s1 = ActiveSheet
Set s2 = Sheets("GENEL SAYFA")
For i = 2 To s1.Range("B65536").End(3).Row

sat = s2.Range("B65536").End(3).Row + 1
s2.Cells(sat, 2) = s1.Cells(i, 2)
s2.Cells(sat, 3) = s1.Name & ".2011"
s2.Cells(sat, 4) = s1.Cells(i, 3)
s2.Cells(sat, 5) = s1.Cells(i, 4)
s2.Cells(sat, 6) = s1.Cells(i, 5)

sat = sat + 1

Next i

End Sub

 

[ergin067]

excel bir konu hakında yardım edecek bir arkadas arıyorum

 

[uzmanamele]

excel bir konu hakında yardım edecek bir arkadas arıyorum

merhaba

syn ergin067, sorunuzu yeni konu açarak uygun başlıkla mümkünse örnek dosya ile sorunuz.

 

[ergin067]

tsk ederım bu from sıtesınde daha yenı uye oldum bır calısma sayfam var o konu hakında soracam ama calısma sayfamı nasıl yolarım bana gercek anlamda yardım edecek bır arkadas arıyorum
ılgılenen arkadasa sımdıden tsk ederım

 

[ynmcan]

Syn. Nihatsoylu;
Aktar makrosunu aşğıdaki ile değiştirirseniz daha sağlıklı olur.
Ekteki dosyayı inceleyin.

Sub aktar()

Sheets("GENEL SAYFA").Range("B2:G65536") = ""

For a = 1 To Sheets.Count - 1
Set s1 = Sheets(a)
Set s2 = Sheets("GENEL SAYFA")

For i = 2 To s1.Range("B65536").End(3).Row

sat = s2.Range("B65536").End(3).Row + 1

s2.Cells(sat, 2) = s1.Cells(i, 2)
s2.Cells(sat, 3) = s1.Name & ".2011"
s2.Cells(sat, 4) = s1.Cells(i, 3)
s2.Cells(sat, 5) = s1.Cells(i, 4)
s2.Cells(sat, 6) = s1.Cells(i, 5)

sat = sat + 1

Next i
Next a

End Sub

 

[nihatsoylu]

ynmcany arkadaşım.Muhteşem olmuş.Çok çok teşekkür ederim.

 

[ynmcan]

tsk ederım bu from sıtesınde daha yenı uye oldum bır calısma sayfam var o konu hakında soracam ama calısma sayfamı nasıl yolarım bana gercek anlamda yardım edecek bır arkadas arıyorum
ılgılenen arkadasa sımdıden tsk ederım

Syn. Ergin067;
Öncelikle sorunuzla ilgisiz konulara mesaj atmayınız.
Forumda sorunuzla ilgili bir konu olup olmadığını araştırın,
Varsa o konu başlığı altında, yok ise excelde yeni başlayanlar sayfasını açarak (excelde yeni olduğunuzu düşünerek) buradaki yeni konu butonuna tıklayın, sorunuzla ilgili bir başlık yazın. Sonra yapmak istediğinizi anlaşılır bir biçimde yazın ve dosyanızı mesajı yazdığınız pencerenin biraz altında bulunan "dosya ekle veya sil" butonuna tıklayarak açılan menü yardımıyla ekleyiniz. Ekleme işlemi bitikten sonra mesajınızı yollayınız.

 

[ergin067]

arkadaslar bana yardım edecek arkadas arıyorum sadece excelde
ergin067@hotmail.com