[Yardım]  Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Kopyala

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Kopyala

İleti#1)  zibayt » 19 Kas 2015 17:11

çalışma kitabında
sadece (B14:B63) kod dolu olan satırları bulup (D69:M69) dan itibaren sadece değerleri yapıştırıp
örnek:(B14:B16) arası doluysa (A14:J16) Arasını kopyalama
yalnız fişte en az 1 satırda yani B14 te kod yazmaya zorlamalı boş fiş kaydedilmesini önlemek için

(A68:M68) tabloda ise yine kod dolu olan (D69:D118) arası hangi satırlarda kod varsa
Örnek : (D69:D71) doluysa (A69:M71) arasını satış sayfasında A stunundaki ilk boş satıra özel sadece değerleri yapıştırmak istiyorum

bu kodları denediğimde hücre boş olsada eğer formülü varsa hata veriyor
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
zibayt
Yeni Başlamış
 
Kayıt: 15 Ekm 2015 19:22
Meslek: serbest
Yaş: 40
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Şartlı olarak belirli hücreleri seçip istenen yere Ko

İleti#2)  Ali ÖZ » 20 Kas 2015 08:53

Merhaba,
Bu kodları kullanabilirsiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
son = 69
For i = 14 To 63
If Cells(i, "b") <> "" Then
  Range("a" & i & ":j" & i).Copy
  Cells(son, "d").PasteSpecial Paste:=xlPasteValues
  son = son + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Ko

İleti#3)  zibayt » 12 Nis 2016 16:33

Sub sil()
Application.ScreenUpdating = False
Set bul = Sheets("LİSTE").Range("B:B").Find(Sheets("FİŞ Giriş").Range("G2"), LookAt:=xlWhole)
If bul Is Nothing Then
MsgBox "-" & Sheets("FİŞ Giriş").[G2].Value & "-" & " F İ Ş B U L U N A M A D I", 48, "Fiş Silme Bilgi"
Exit Sub
End If
If MsgBox("-" & Sheets("FİŞ Giriş").[G2].Value & "-" & " Nolu Fişi Silmek İstediğinizden Emin misiniz?", vbYesNo + vbQuestion, "FİŞ SİLME") = vbYes Then
Else: Exit Sub
End If
aranan = Sheets("FİŞ Giriş").Range("G2").Value
For syf = 1 To Sheets.Count
If Sheets(syf).Name = "LİSTE" Or Sheets(syf).Name = "SATIŞ" Then
Sheets(syf).Select
For i = ActiveSheet.Range("B65536").End(3).Row To 2 Step -1
If ActiveSheet.Cells(i, "B").Value = aranan Then
ActiveSheet.Rows(i).Delete
End If
Next
End If
Next
Sheets("FİŞ Giriş").Select
Range("G2").Select
MsgBox "-" & Sheets("FİŞ Giriş").[G2].Value & "-" & " F İ Ş S İ L İ N D İ", 48, "Fiş Silme Bilgi"
Application.ScreenUpdating = True
End Sub



Merhaba arkadaşlar yukarıdaki kodlar satır sayısı çok olduğunda inanılmaz uzun sürüyor. Veriyi 2 sayfada arama yapıp sildiriyorum.
Bu silme işlemini daha hızlı hata yapmadan süzme fonksiyonu ile satır içeriği silme değilde komple silme nasıl yapabilirim. Veya hızlanması için ne yapmalıyım.
Kullanıcı avatarı
zibayt
Yeni Başlamış
 
Kayıt: 15 Ekm 2015 19:22
Meslek: serbest
Yaş: 40
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Ko

İleti#4)  Ali ÖZ » 12 Nis 2016 21:46

Ahmet Bey,
Öncelikle verilen yanıtlara olumlu veya olumsuz dönüş yapsanız,sonrasında farklı taleplerde bulunsanız.Bu durum insana boşa uğraştığını hissettiriyor. :evil:
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Ko

İleti#5)  zibayt » 13 Nis 2016 22:05

Ali bey
Kusura bakmayın; Yardımlarınız gerçekten çok işe yarıyor farkettiyseniz yukarıdaki kodları sizin daha önce yardımlarınız sayesinde, elde ettim bazı eklemer yaptım.
viewtopic.php?f=4&t=22985&p=175768#p175768
linke bakarsanız. 22 kasım 2015 işe yaradığını yazmıştım. Aynı tarihlerde iki farklı yerde konu olmuş atlamışım affola.

Verdiğiniz kodlarda hiçbir sıkıntı yok sadece satır sayısı arttığında işlem bekleme süresi çok uzuyor bilgisayarın kilitlendiğini sanıyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Kullanıcı avatarı
zibayt
Yeni Başlamış
 
Kayıt: 15 Ekm 2015 19:22
Meslek: serbest
Yaş: 40
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Ko

İleti#6)  natsu05 » 23 Tem 2020 11:46

merhaba arkadaşlar şimdi deneme1 isimli excelden sabit bir kaç hücreyi kopyaladık daha sonra başka bir excel deneme2 de A sütununda (deneme1 de x hücresine yazdığım tarih) tarih eşleşiyorsa eşleştiği sütundan 4 sütün atlasın ve yapıştırsın istiyorum fakat çözemedim olayı yardımlarınız benim için çok değerli yardımcı olabilecek arkadaşlara şimdiden teşekkürlerimi sunuyorum.
Kullanıcı avatarı
natsu05
 
Kayıt: 12 May 2020 12:46
Meslek: istatistikçi
Yaş: 29
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: amasya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Şartlı Olarak Belirli Hücreleri Seçip İstenen yere Ko

İleti#7)  natsu05 » 25 Tem 2020 08:57

Sheets(2).Range("M5:M11").Copy
Workbooks.Open (yol)
Sheets("Temmuz 20").Activate
Dim i As Integer
Dim t As Range
Dim a As Range
Set t = Sheets("Temmuz 20").Range("AE4")
Set a = Sheets("Temmuz 20").Range("Q" & i)
For i = 0 To 50
If a = t Then
Sheets("Temmuz 20").Range("U" & i, 21).PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
Exit For
End If
Next i
arkadaşlar mantığı burda var bu kodun çalışmasını nasıl sağlarım şartlı yapıştırma yapmaya çalışıyorum cevap gelmedi sanırım yapan arkadaşlar burda değil :)
Kullanıcı avatarı
natsu05
 
Kayıt: 12 May 2020 12:46
Meslek: istatistikçi
Yaş: 29
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: amasya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe