[Çözüldü]  Dinamik Döngü

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

Dinamik Döngü

İleti#1)  semos » 11 Tem 2018 13:50

Üzerinde çalıştığım bir dosya var. Burada KBS_Dosyalari dosyası içerisindeki excel dosyasından iban numaralarına göre eşleştirme yaparak personel verilerini çekerek aktarıyorum. Ancak personel sayısı her değiştiğinde hücre aralığını ayarlamam gerekiyor. Bunu otomatik olarak yapmak mümkün mü? Dosya ektedir. Şimdiden yardımcı olacak herkese teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
semos
Siteye Alışmış
 
Adı Soyadı:sema güven
Kayıt: 29 May 2012 23:49
Konum: Kocaeli
Meslek: Öğretmen
Yaş: 32
İleti: 124
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kocaeli

Cevap: Dinamik Döngü

İleti#2)  Enes Recep BAĞ » 11 Tem 2018 13:57

Kod: Tümünü seç
son = Range("BA65536").End(3).Row
ActiveSheet
.Range("BA22:BG" & son).Select
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8116
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Dinamik Döngü

İleti#3)  semos » 11 Tem 2018 14:25

Enes Bey Maaş_Giriş_Sayfası sayfasındaki b2 hücresinde yer alan tarihi personel sayısı kadar nasıl kopyalatabiliriz?
Kullanıcı avatarı
semos
Siteye Alışmış
 
Adı Soyadı:sema güven
Kayıt: 29 May 2012 23:49
Konum: Kocaeli
Meslek: Öğretmen
Yaş: 32
İleti: 124
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kocaeli

Cevap: Cevap: Dinamik Döngü

İleti#4)  Enes Recep BAĞ » 12 Tem 2018 13:53

semos yazdı:Enes Bey Maaş_Giriş_Sayfası sayfasındaki b2 hücresinde yer alan tarihi personel sayısı kadar nasıl kopyalatabiliriz?

Eğer sorunuz B2 hücresindeki tarihi, örneğinizdeki B5:B35 arasına yazmaksa;
Kod: Tümünü seç
For i = 5 To Range("B65536").End(3).Row
    Cells
(i, 2) = Range("B2")
Next i
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8116
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

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

Cevap: Dinamik Döngü

İleti#5)  semos » 12 Tem 2018 14:46

Enes Bey ilginize çok teşekkür ederim. Kodu şu şekilde monte ettim ancak kopyalama yapmıyor.

ActiveSheet.Range("B2").Select
Selection.Copy
For i = 5 To Range("B65536").End(3).Row
Cells(i, 2) = Range("B2")
Next i
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"

nedeni nedir acaba?
Kullanıcı avatarı
semos
Siteye Alışmış
 
Adı Soyadı:sema güven
Kayıt: 29 May 2012 23:49
Konum: Kocaeli
Meslek: Öğretmen
Yaş: 32
İleti: 124
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kocaeli

Cevap: Dinamik Döngü

İleti#6)  semos » 12 Tem 2018 23:31

Problemi şu şekilde çözdüm. Enes bey çok teşekkür ederim.
Kullanıcı avatarı
semos
Siteye Alışmış
 
Adı Soyadı:sema güven
Kayıt: 29 May 2012 23:49
Konum: Kocaeli
Meslek: Öğretmen
Yaş: 32
İleti: 124
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kocaeli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Dinamik Döngü

İleti#7)  semos » 13 Tem 2018 13:52

Özür dilerim kodu eklemeyi unutmuşum.

Son = Cells(65536, "B").End(xlUp).Row
ActiveSheet.Range("B2").Copy
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("B5:B" & lastRow).PasteSpecial
Application.CutCopyMode = False
Kullanıcı avatarı
semos
Siteye Alışmış
 
Adı Soyadı:sema güven
Kayıt: 29 May 2012 23:49
Konum: Kocaeli
Meslek: Öğretmen
Yaş: 32
İleti: 124
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: kocaeli


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe