makro ile hücre seçme

[qwen]

merhaba,

ufacık bir program yapmam gerekiyor ancak kucuk bir makro sorunum var, yardımcı olabilecek arkadaslar varsa gercekten cok minnettar olurum..

excele aktarmam gereken gunluk bir listem var. bu listeyi excelde ilk sayfama giriyorum, sonra bir dugmeye basıyorum yazdıgım kadar satırı kopyalıyor, 2. bir sayfaya yapıstırıyor. secip kopyalanacak bolge kac satır veri girdigime gore degisken oldugu icin soyle yapmam gerekiyor;

"A5" hucresi ile "HX" hucresi arasını secip kopyalamam lazım. X sayısının degerini "K1" hucresindeki "=(MAK((BAĞ_DEĞ_DOLU_SAY(D))))+3" formulu veriyor.

simdiden tesekkurler ilginize..

 

[Recep İpek]

2.sayfaya aktarma yaptığınız kodlarınızı buraya ekleyebilirmisiniz?

 

[qwen]

Sub Makro1()

Range("A5:HX").Select
'A5 hucresinden H sutunu x inci satıra kadar sec, X=K1 hucresinin degeri
Selection.Copy
Sheets("Data").Select
Cells([T1], "B").Select
'yapıstırılacak olan verileri b sutununda T1 hucresinin sayısal degeri olan satıra yapıstır
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Recep İpek]

Sub Makro1()
[COLOR=blue]X = [k1]
Range(Cells(5, "a"), Cells(X, "H")).Select
[/COLOR]'A5 hucresinden H sutunu x inci satıra kadar sec, X=K1 hucresinin degeri
Selection.Copy
Sheets("Data").Select
Cells([T1], "B").Select
'yapıstırılacak olan verileri b sutununda T1 hucresinin sayısal degeri olan satıra yapıstır
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

olarak deneyiniz.

 

[qwen]

evet, super, cok tesekkur ederim

 

[Recep İpek]

Rica ederim.

 

[KarıncaZ]

En Son İşlem Yapılan Hücreyi Seçmek

Merhaba Arkadaşlar,

Araştırdım ancak bir türlü bulamadım.
ENTER tuşuna basılınca bir önceki hücreyi seçmek istiyorum. Ama Excelin ENTER tuşuna basılınca sağa mı sola mı yukarıya mı aşağıya mı ayarını bilirsiniz, SAĞA geç olarak ayarlı değilse makrom br türlü çalışmıyor.

Private Sub Workbook_SheetChange( _
ByVal Sh As Object, _
ByVal Target As Range)

On Error Resume Next
If Target.Column = 4 Then
'// 4. Sütunda işlem yapıldırğında \\
Set S2 = Sheets("VR")
'// Düşey Aranacak Sayfa \
Son2 = S2.Cells(65536, 2).End(xlUp).Row 'Düşey ara yapılacak sayfanın dolu hücre saysı
Alan = "A2: B" & Son2
'// Formüldeki alana değişken belirleme \\
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(0, -1) & " " & Application.WorksheetFunction.VLookup(ActiveCell.Offset(0, -1), S2.Range(Alan), 2, 0)
'//Aktif hücrenin solundaki hücrede yazanı düşeyarayla bul, o hücrede yazan ile bulduğunu birleştir. \\
End IF
End Sub

Bu makroyu kullanıyorum, Excel ENTER tuşuna basılınca SAĞDAKİ hücreye geçsin olarak ayarlıysa makrom sorunsuz çalışıyor. Ancak başka bir yöne olarak ayarlandıysa çalışmıyor.

En son işlem yapılan hücreyi nasıl seçebilirim.

 

[Korhan Ayhan]

Merhaba,

Kodlarınızın sonuna aşağıdaki satırı ekleyip deneyin.

Target.Select

 

[evuye2]

Peki seçmek istediğimiz hücre veya sütün değişkense nasıl yapmalıyız?
Şöyle ki;
BC3 ile BC500 arasını kopyalamak istiyorum. Range("BC3:BC500").Select bunu kullanarak bu lgili alanı seçip kopyalıyorum.
Ancak kopyalamak istediğim veri farklı bir sütuna geçebiliyor. Yani BC'de iken BE'ye gidebilir. Dolayısıyla BE'yi kopyalamam gerekecek.

Ayrıca BC1 hücresinde de sabit bir değer(MARKA_SEC) var. Yani o değeri(MARKA_SEC) gördüğü sütunun 3. satırı ile 500. satırı arasını nasıl kopyalayacağız?

 

[Korhan Ayhan]

Deneyiniz.

MARKA_SEC verisinin sayfada her daim olduğunu varsaydım. Eğer olmama durumu varsa koda koşul eklemek gerekecektir.

Sub Test()
    Range(Replace(Cells.Find("MARKA_SEC", , , xlWhole).Address(0, 0), 5, 3)).Resize(500 - 2).Copy
End Sub

 

[evuye2]

Çok teşekkür ederim. Peki kopyalama yerine "MARKA_SEC" altındaki 3. hücreyi sadece seçmek istesem?
Kodu değiştirerek yapmaya çalıştım ama olmadı maalesef.

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    Cells.Find("MARKA_SEC", , , xlWhole).Offset(3).Select
End Sub