DİNAMİK DEĞİŞEN SEÇİLİ HÜCRE

[bhrmbzkrt]

merhaba,
çok uğraştıgım ama yapamağım bir örnekten bahsederek soruma geçmeyi istiyorum.

Sub KES()

Range("E42:AD51").Select
Selection.Cut
Range("E57").Select
Selection.Insert Shift:=xlDown
End Sub

yapmak istediğim şu ki ben e42:e51 seçtiğimde kod e42:ad51 alanını tarasın ve kessin sonra tıkladığım hücreden itibaren kesilen hücreleri eklesin.

seçtiğim hücre grubuna göre dinamik başvuru kullanmalı. bir türlü yaptığım seçimlere göre alan seçtiremedim.
seçimin sabit olmaması için napabilirim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod belirtilen hücreleri kesip "E57" ye yapıştırır.

Range("E42:AD51").Cut Range("E57")

 

[bhrmbzkrt]

Merhaba.

Aşağıdaki kod belirtilen hücreleri kesip "E57" ye yapıştırır.

Range("E42:AD51").Cut Range("E57")

cevabınız için teşekkürer . fakat benim demek istediğim makroyu bir butona gömecem. sonra ben sadece e stununda hücreleri sececem. seçtiğim indiz kadar bir alanı tarayıp kesecek bir kod lazım. örneğin e7 den e12 ye kadar hücreleri tarayıp butona basınca e7:ad12 arasını secip kesecek ,

aynı sayfada e22 e30 arasını sectiğimde tekrar aynı butona basınca e22:ad30 arasını seçip kesecek. bunu yapacak dinamik bir kod lazım bana.

 

[Korhan Ayhan]

Deneyiniz.

Sub Kes()
Selection.Cut 
End Sub

 

[bhrmbzkrt]

Deneyiniz.

Sub Kes()
Selection.Cut
End Sub

malesef bu sadece seçilen hücreleri kesiyor. benim demek istediğim ben sadece bir stundan hücreleri seçeyim butona basınca seçili hücrelerin AD stununa kadar olan kısmı tarayıp kesecek. yani ben tüm alanı taramak zorunda kalmayacam.
bu dediğiniz de işe yarıyor fakat tüm alanı seçmek zorunda kalıyorum.

 

[Korhan Ayhan]

Peki seçilecek alan hep E-AD sütun aralığı mı olacak?

 

[hamitcan]

Bu şekilde dener misiniz ?

Dim a
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False
    Selection.Select
    Selection.Cut
    a = Selection.Address
    yapistir
  Application.EnableEvents = True
End Sub
Sub yapistir()
    Set Myrange = Application.InputBox(prompt:="Bir Hücre Seçin", Type:=8)
    Myrange.Insert Shift:=xlDown
    Range(a).Copy Myrange
    Range(a).ClearContents
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Kes()
    Dim Alan As Range
    Set Alan = Selection
    Range("E" & Alan.Cells(1, 1).Row & ":AD" & Alan.Cells(Alan.Rows.Count, 1).Row).Cut
End Sub

 

[bhrmbzkrt]

Deneyiniz.

Sub Kes()
    Dim Alan As Range
    Set Alan = Selection
    Range("E" & Alan.Cells(1, 1).Row & ":AD" & Alan.Cells(Alan.Rows.Count, 1).Row).Cut
End Sub

söyleyecek sözüm yok şuan . süper çalışıyor. elinize sağlıkk
çok teşekkür ederim cevaplayan herkese...