• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Range().select Formül Sonucu Adresi Seçmesi Hakkında;

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
20 Haziran 2016
Mesajlar
11
Excel Vers. ve Dili
2013 - Türkçe
Merhaba,
Makro Çalıştığında H1 Hücresinde Belirtilen Hücreyi Nasıl seçe bilir.
Range().Select ile yapamadım.

Ör: H1 Hücresinde Adres bul ile $I$1 yazıyor. I1 Hücresini seçmesini istiyorum.


Yardımlarınız için Teşekkürler.
 
Kod:
Range(Range("H1").Text).Select

.
 
Kod:
Range(Range("H1").Text).Select

.

Çok Teşekkürler.

3 Gündür uğraşıyordum. :hihoho:

Başka Sayfayı nasıl seçtirebilirim.

Ör: H1 de yazan Hücreyi Deneme sayfasından seç gibi. başka sayfadan.
 
Son düzenleme:
Deneyiniz.

Kod:
Sheets("Deneme").Select
Range(Range("H1").Text).Select
 
Deneyiniz.

Kod:
Sheets("Deneme").Select
Range(Range("H1").Text).Select

Merhaba Metod hata veriyor.

Ben makroyu sayfa1 de çalıştırıyorum ve sayfa1 in H1 hücresinde yazan adresi Deneme sayfasından seçebilir mi?

Aslında yapmak istediğim sayfa1 F sütunundaki bilgileri D sütunundaki adreslere göre Deneme sayfasının ilgili adreslerine kopyalamak.

Sub Click()
Application.ScreenUpdating = False
Range("D3").Select
Selection.Copy
Sheets("Deneme").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("F3").Select
Selection.Copy
Sheets("Deneme").Select
Range(Range("A1").Text).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
'------------------------------------
Range("D4").Select
Selection.Copy
Sheets("Deneme").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("F4").Select
Selection.Copy
Sheets("Deneme").Select
Range(Range("A1").Text).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("F5").Select
Application.ScreenUpdating = True
End Sub

Bir iki makro çalışması yaptım fakat iş biraz uzadı gibi. Daha kolay bir seri ile olabileceğini düşünüyorum.
 

Ekli dosyalar

Son düzenleme:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst