• DİKKAT

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

Belirtilecek Sayfalara Sadece Değerlerin Yapıştırılması

B

betoncu

Katılım
1 Aralık 2005
Mesajlar
376
Excel Vers. ve Dili
EXCEL 2002
TÜRKÇE
Tıkla düğmesine tıklandığında bu sayfada sarı renkle belirtilen hücrelerin sadece değerlerinin belirtilecek sayfada yapıştırılmasını istiyorum.

Mesela TIKLA düğmesine tıklandığında verilerin kopyalanacağı sayfayı giriniz şeklinde bir mesaj kutusunun gelmesiyle o mesaj kutusuna mesela ŞUBAT girildiğinde ŞUBAT sayfasında aynı hücrelere sadece değerlerin yapıştırılmasını nasıl yaparız.

Örnek dosya ektedir.

Yardımlarınızı bekliyorum...
 

Ekli dosyalar

Merhaba
Aşağıdaki kodu dener misiniz?
Kod: 
Sub aktar()
    AySor = Application.InputBox("Lütfen Verilerin Kopyalanacağı Sayfayı Giriniz.", "SAYFA GİRİŞİ")
    If AySor = False Then Exit Sub
    
    Sheets(AySor).Range("C5:C25").Value = Sheets("TASARI_AYLIK_PLAN").Range("C5:C25").Value
    Sheets(AySor).Range("H5:H25").Value = Sheets("TASARI_AYLIK_PLAN").Range("H5:H25").Value
End Sub
 
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub yapıştır()
Dim SYF As Worksheet, SYF1 As Worksheet
Dim BUL As Variant, HT As Variant, YR As Variant
Set SYF = Sheets("TASARI_AYLIK_PLAN")
On Error GoTo HT
BUL = InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
If BUL = Empty Then Exit Sub
BUL = Replace(Replace(UCase(BUL), "ı", "I"), "i", "İ")
Set SYF1 = Sheets(BUL)
Application.ScreenUpdating = False
SYF1.Range("B5:B25").Value = SYF.Range("B5:B25").Value
SYF1.Range("C5:L25").Value = SYF.Range("C5:L25").Value
SYF1.Range("X2:AL56").Value = SYF.Range("X2:AL56").Value
SYF1.Range("AP2:BE56").Value = SYF.Range("AP2:BE56").Value
Application.ScreenUpdating = True
MsgBox "İşlem Başarılı", vbInformation
HT:
End Sub
 
Son düzenleme:
Teşekkür ederim. Sayfanın X sütunndan itibaren de kopyalanacak veriler vardı. Sanırım görmediniz. Bu koda göre uyarlamaya çalışacağım.
Yardımınız için teşekkür ederim..
 
betoncu' Alıntı:
Teşekkür ederim. Sayfanın X sütunndan itibaren de kopyalanacak veriler vardı. Sanırım görmediniz. Bu koda göre uyarlamaya çalışacağım.
Yardımınız için teşekkür ederim..
Genişletmek için tıkla ...

Üstteki kodu ona göre güncelledim.
 
Asi kral ilave bir koda ihtiyacım var yardım edebilirmisin?
Bu kodlar ile mevcut olan bir sayda yapıştırma işlemi yapılıyor. Peki mesaj kutusuna olmayan bir sayfanın ismini girdiğimizde böyle bir sayfa yoktur gibi mesaj verdirebilirmiyiz?
 
betoncu' Alıntı:
Asi kral ilave bir koda ihtiyacım var yardım edebilirmisin?
Bu kodlar ile mevcut olan bir sayda yapıştırma işlemi yapılıyor. Peki mesaj kutusuna olmayan bir sayfanın ismini girdiğimizde böyle bir sayfa yoktur gibi mesaj verdirebilirmiyiz?
Genişletmek için tıkla ...

Bu kodu dener misiniz_?
Kod: 
Option Explicit
Sub yapıştır()
Dim SYF As Worksheet, SYF1 As Worksheet
Dim BUL As Variant, HT As Variant, YR As Variant
Set SYF = Sheets("TASARI_AYLIK_PLAN")
On Error GoTo HT
BUL = InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
If BUL = Empty Then Exit Sub
BUL = Replace(Replace(UCase(BUL), "ı", "I"), "i", "İ")
Set SYF1 = Sheets(BUL)
Application.ScreenUpdating = False
SYF1.Range("B5:B25").Value = SYF.Range("B5:B25").Value
SYF1.Range("C5:L25").Value = SYF.Range("C5:L25").Value
SYF1.Range("X2:AL56").Value = SYF.Range("X2:AL56").Value
SYF1.Range("AP2:BE56").Value = SYF.Range("AP2:BE56").Value
Application.ScreenUpdating = True
MsgBox BUL & " Bu Sayfaya Bilgiler Aktarıldı", vbInformation
Exit Sub
HT: MsgBox BUL & " Adlı Sayfa Yok", vbCritical
End Sub
 
asi_kral_1967' Alıntı:
Bu kodu dener misiniz_?
Kod: 
Option Explicit
Sub yapıştır()
Dim SYF As Worksheet, SYF1 As Worksheet
Dim BUL As Variant, HT As Variant, YR As Variant
Set SYF = Sheets("TASARI_AYLIK_PLAN")
On Error GoTo HT
BUL = InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
If BUL = Empty Then Exit Sub
BUL = Replace(Replace(UCase(BUL), "ı", "I"), "i", "İ")
Set SYF1 = Sheets(BUL)
Application.ScreenUpdating = False
SYF1.Range("B5:B25").Value = SYF.Range("B5:B25").Value
SYF1.Range("C5:L25").Value = SYF.Range("C5:L25").Value
SYF1.Range("X2:AL56").Value = SYF.Range("X2:AL56").Value
SYF1.Range("AP2:BE56").Value = SYF.Range("AP2:BE56").Value
Application.ScreenUpdating = True
MsgBox BUL & " Bu Sayfaya Bilgiler Aktarıldı", vbInformation
Exit Sub
HT: MsgBox BUL & " Adlı Sayfa Yok", vbCritical
End Sub
Genişletmek için tıkla ...


Çok teşekkür ederim. Tam istediğim gibi..
 
Sizin verdiğiniz aşağıdaki kodda nasıl bir değişiklik yapmalıyız?

BUL = InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
 
betoncu' Alıntı:
Teşekkür ederim. Son bir yardıma ihtiyacım olacak. Verdiğiniz kodlardaki mesaj kutusunda Ok. Cancel ifadeleri geliyor.

Bunları türkçeleştirebilirmiyiz?

Cancel yerine İptal gibi....
Genişletmek için tıkla ...

Merhaba
Inputbox'un böyle bir özelliği var mı onu bilmiyorum. Araştırmak lazım. Yada büyük uzmanlara sormak lazım. :)
 
Teşekkür ederim :)
Ben araştırdım sanırım böyle bir özelliği yoktur.
 
Merhaba,
Tamam, İptal ifadesi için kod satırına aşağıdaki koyu yazılan ifadeyi ekleyip dener misiniz?
BUL = Application.InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
 
dEdE' Alıntı:
Merhaba,
Tamam, İptal ifadesi için kod satırına aşağıdaki koyu yazılan ifadeyi ekleyip dener misiniz?
BUL = Application.InputBox("Sayfa Adı Giriniz_?", "Sayfa Adı Girişi")
Genişletmek için tıkla ...

dEdEm çok teşekkür ederim tam istediğim gibi:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst