sutun seç

[prodigy]

Sub sec()
ilk = Range("A:E").Address
son = Cells.Find("Toplam").EntireColumn.Address
???????????



End Sub
A sutunundan E sutununa kadar olan sutunları, toplam yazan sutun ile birlikte kopyalayıp, diğer bir sayfaya nasıl aktarabiliriz.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz?

Sub sec()
Range("A:E").Find("Toplam").select
End Sub

 

[prodigy]

sayın cost-control dosyayı ekledim.

 

[prodigy]

sayın orion2 kod hata veriyor

 

[veyselemre]

Sub Makro1()
    bson = [b65536].End(3).Row
    ts = Chr(Rows(5).Find("Toplam").Column + 64)
    Range("A5:E" & bson & "," & ts & "5:" & ts & bson).Copy
    Sheets("Sayfa2").Select
    Range("A3").PasteSpecial
End Sub

 

[Orion1]

sayın orion2 kod hata veriyor

A:E sütunları arasında "Toplam" isminde bir değere rastlamadığı için hata veriyor.
Ben çalıştırdım "Toplam" yazan hücreyi seçti.
Kodları aşağıdaki şekilde denermisiniz ?

Sub sec()
On Error Resume Next
Range("A:E").Find("Toplam").Select
End Sub

 

[prodigy]

sayın orion2 çok teşekkür ederim . yapmak istediğim a sutundan e sutununa kadar olan sutunları, toplam yazan sutun ile birlikte seçmek yani toplam yazan sutun farklı bir sutunda .örneğin k sutununda toplam yazıyor.

 

[prodigy]

Tüm arkadaşlara teşekkürler. Sayın veysel emrenin kodlarıyla problem çözüldü.

 

[Orion1]

sayın orion2 çok teşekkür ederim . yapmak istediğim a sutundan e sutununa kadar olan sutunları, toplam yazan sutun ile birlikte seçmek yani toplam yazan sutun farklı bir sutunda .örneğin k sutununda toplam yazıyor.

Merhaba.
Aşağıdaki kodu deneyiniz.:cool

Sub sec()
On Error Resume Next
toplam_sut = Cells.Find("Toplam", , xlValues, xlWhole).Column
If Not toplam_sut = Empty Then
    toplam = Range(Cells(1, toplam_sut), Cells(65536, toplam_sut)).Address
    Range("A:E," & toplam).Select
    Else
    Range("A:E").Select
End If
End Sub