Diyalog Penceresi İle Hücre Seçimi

[askm]

Kolay gelsin.
Diyalog penceresi ile hücre seçtirip, o hücrenin sütünun başından sonuna kadar dolu hücreleri sonraki sütunlarla birlikte Sayfa2 ye kopyalamak istiyorum. Nasıl yapabilirim.
Örneğin diyalog penceresi ile C10 hücresi seçildi. A2 den F50 ye kadar dolu diyelim.
Yalnız C2:F50 arasını kopyalayacak.
Teşekkürler.

 

[CrAzY_4343]

Bu işinizi görür sanırım.

Sub DialogIleKopyala()
    Dim rng As Range
    Set rng = Application.InputBox("Aralık Seçiniz", "Aralık Kopyala", Type:=8)
    rng.Select
End Sub

 

[askm]

Çok teşekkür ederim.

 

[askm]

Bir soru daha sormak istiyorum müsadenizle. burda seçilen hücre ve altındaki tün satırlarla birlikte dolu son kolondan bir sonraki kolona nasıl kopyalayabilirim.

 

[CrAzY_4343]

bir örnek çalışma koyarsanız üzerinde çalışsak..Daha iyi sonuç almış oluruz

 

[askm]

Aşağıdaki kod ile kopyalıyorum. Yalnız sıralama yapamadım.
Sıralama yapıp aynı verileri aynı renkte boyamak istiyorum.

Sub Isyeri_No_Ayir()
Dim s1, s2 As Worksheet
Set s1 = ThisWorkbook.Sheets("Veri Sayfası") 'kaynak sayfa adını belirtin(parantez içindeki).
Set s2 = ThisWorkbook.Sheets("Yeni Liste") 'hedef sayfa adını belirtin(parantez içindeki).
Dim sonsatir, i, bulunansatir As Integer, bulunansutun As Integer
Dim SonKolon As Integer

Set hucre = Application.InputBox("Lütfen son numarasını almak istediğiniz işyeri numarasının olduğu ilk veriyi seçin...", "excel", Type:=8)
sonsatir = s1.Cells(Rows.Count, 1).End(3).Row
SonKolon = Cells(ActiveCell.Row, 256).End(xlToLeft).Column + 1

bulunansatir = s1.Range(hucre, hucre).Row
bulunansutun = s1.Range(hucre, hucre).Column
s1.Cells(bulunansatir - 1, SonKolon) = "SON NO"
s1.Cells(bulunansatir - 1, SonKolon).Font.Bold = True

For i = bulunansatir To sonsatir
's1.Cells(i + 10, bulunansutun).Select
If Len(s1.Cells(i, bulunansutun)) > 7 Then
' s1.Cells(i, bulunansutun).Select
s1.Cells(i, SonKolon) = Mid(s1.Cells(i, bulunansutun), 20, 1)
Else
' s1.Cells(i, bulunansutun).Select
s1.Cells(i, SonKolon) = Right(s1.Cells(i, bulunansutun), 1)
End If
Next
''''''''''''''''''''''''''''''''''''''''''''''''
'KÜÇÜKTEN BÜYÜĞE SIRALAMA YAPMAK İÇİN
s1.Range(hucre, bulunansatir - 1 & ":" & sonsatir & bulunansutun).Select
Selection.Sort Key1:=s1.Cells(hucre, SonKolon), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

 

[CrAzY_4343]

Özür diliyorum ama proje dosyanızı buraya yüklerseniz çok daha hızlı yardımcı olacağız.

 

[askm]

Örnek ektedir.