sütunları birleştirme?

[garfihan]

Herkese Merhaba,

Excel' de yapmak istediğim bir olay var ama bir türlü beceremedim. Belkide yapılması mümkün değildir bilemiyorum. Bu konuda yardımcı olursanız sevinirim.

Şöyle ki;

http://imageshack.us/photo/my-images/209/excelsutunbirlestime.jpg

yukarıdaki linkte resmini bulabileceğiniz excel belgesindeki Kreatini Çıkış değerinin Kreatinin değerinin yanına yazılmasını istiyorum. ve Kreatinin Çıkış satırının silinmesini istiyorum. Yani çıktısı aşağıdaki linkteki gibi olsun. bunu elimle yapıyorum ve saatlerimi alıyor. milyonlarca satır var.

http://imageshack.us/photo/my-images/811/excelsutunbirlestirme1.jpg

Teşekkürler

 

[Huseyinkis]

Ekteki Kodları Denermisiniz.


Sub Kreat()
For i = Range("L65536").End(3).Row To 1 Step -1
If Cells(i, "K").Value = "Kreatinin* Çıkış" Then
Cells(i + 1, "L").Value = Cells(i + 1, "L").Value & " - " & Cells(i, "L").Value
Rows(i).Delete
End If
Next
End Sub

 

[garfihan]

Ekteki Kodları Denermisiniz.


Sub Kreat()
For i = Range("L65536").End(3).Row To 1 Step -1
If Cells(i, "K").Value = "Kreatinin* Çıkış" Then
Cells(i + 1, "L").Value = Cells(i + 1, "L").Value & " - " & Cells(i, "L").Value
Rows(i).Delete
End If
Next
End Sub

Merhaba Hocam,

Kodlarınızı denedim. Kreatinin Çıkış satırını siliyor ama Kreatinin Çıkış değerinin Kreatinin sütununa atamıyor. Yani sadece Kreatinin Çıkış satırlarının hepsini sildi.

Teşekkürler.