çift tıklama

[otelci01]

Merhaba, a1:b10 arasındaki hücrelerdeki arasındaki herhangi bir sütünundaki hücreyi Örnek : a1 ve b1 i sadece a1 e çift tıklayarak A15 ve B16 e kopyalamak istiyorum. bununla ilgili bir makro hazırlayabilirmiyiz teşekkürler.

 

[otelci01]

Merhaba, a1:b10 arasındaki hücrelerdeki arasındaki herhangi bir sütünundaki hücreyi Örnek : a1 ve b1 i sadece a1 e çift tıklayarak A15 ve B15 e kopyalamak istiyorum. bununla ilgili bir makro hazırlayabilirmiyiz teşekkürler.

 

[Ömer]

Merhaba,

Sorunuz tam olarak anlaşılmıyor.

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:B10]) Is Nothing Then Exit Sub
    Range("A" & Target.Row & ":B" & Target.Row).Copy Range("A15")
End Sub

 

[otelci01]

MErhaba,Ömer hocam ekteki örnekte istediğimi anlatıım indis formülüyle çalıştırıyorum ama çift tıklama işimi daha kolaylaştıracak sadece bir örnek yaparsanız devamını yapabilirim teşekkürler

 

[otelci01]

Merhaba, kod la ilgili bir başlangıç yapabilirseniz devamını yapmaya çalışacam .

 

[nsertoglu]

Örnek olacak çalışma için aşağıdaki linke gidiniz:

http://www.excel.web.tr/f48/maliyet-hazyrlama-t92453.html

 

[steppe]

Merhaba,

Sorunuz tam olarak anlaşılmıyor.

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:B10]) Is Nothing Then Exit Sub
    Range("A" & Target.Row & ":B" & Target.Row).Copy Range("F2")
End Sub

Bu örnekte a5'e çift tıkladığımızda F2:G2 aralığına A5:B5 aralığını kopyalıyor.Acaba A7'ye çift tıladığımızda F3:G3 aralığına kopyalayamaz mı?Her çift tıkladığımızda F:G aralığına alt alta kopyalayayabilir miyiz?
Yardımlarınız için şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

Bu örnekte a5'e çift tıkladığımızda F2:G2 aralığına A5:B5 aralığını kopyalıyor.Acaba A7'ye çift tıladığımızda F3:G3 aralığına kopyalayamaz mı?Her çift tıkladığımızda F:G aralığına alt alta kopyalayayabilir miyiz?
Yardımlarınız için şimdiden teşekkürler.

. . .

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) = "A7" Then
    i = [F65536].End(3).Row + 1
    Range("A5:B5").Copy Cells(i, "F")
    Cancel = True
End If
End Sub

. . .

 

[steppe]

Hüseyin Hocam, ilgin için çok teşekkür ederim.
Yalnız A1:B10 aralığında değişik veriler var bu değişik verileri F:G aralığına alt alta kopyalayabilir miyiz?
Örnek dosyada detaylı açıkladım.

 

[Emir Hüseyin Çoban]

Hüseyin Hocam, ilgin için çok teşekkür ederim.
Yalnız A1:B10 aralığında değişik veriler var bu değişik verileri F:G aralığına alt alta kopyalayabilir miyiz?
Örnek dosyada detaylı açıkladım.

. . .

A sütunundan kopyalayacak mı yoksa veriyi taşıyacak mı ?
Kopyalamak için;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A1:B10]) Is Nothing Then
        i = [F65536].End(3).Row + 1
        Range("A" & Target.Row & ":B" & Target.Row).Copy Cells(i, "F")
        Cancel = True
    End If
End Sub

. . .

 

[steppe]

Hüseyin Hocam,
Yardımlarınız için çok teşekkür ederim.Veriyi taşırsak,kodunu yazabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

2 alternatif olabilir.

Range("A" & Target.Row & ":B" & Target.Row).copy, satırında Copy yerine Cut kullanabilirsiniz veya

Range("A" & Target.Row & ":B" & Target.Row).copy satırından sonra
Range("A" & Target.Row & ":B" & Target.Row) = "" yapabilirsiniz.

. . .

 

[steppe]

Hüseyin Hocam,
Yardımlarınız için çok teşekkür ederim.

 

[drykcktl]

. . .

2 alternatif olabilir.

Range("A" & Target.Row & ":B" & Target.Row).copy, satırında Copy yerine Cut kullanabilirsiniz veya

Range("A" & Target.Row & ":B" & Target.Row).copy satırından sonra
Range("A" & Target.Row & ":B" & Target.Row) = "" yapabilirsiniz.

. . .

başka sayfaya taşımak için ne yapabiliriz acaba

 

[Emir Hüseyin Çoban]

başka sayfaya taşımak için ne yapabiliriz acaba

. . .

Verileri yapıştırma komutundan önce sayfa bilgisi girilmeli.
Ör. Sheets("Sayfaismi").range("A1") gibi...

. . .