[Yardım]  Makro ile Visual Basic içindeki verileri değiştirmek?

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

Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#1)  Btr97 » 09 Oca 2019 12:46

İyi günler, örnek dosyada da görebileceğiniz gibi "veri aktarımı" amacıyla kullandığım makro içeren bir excel dosyam var. Her hafta veri aldığı dosyanın yolunu değiştirmem gerekiyor. Ben Visual Basic arayüzüne girip ctrl+h ile değişiklileri yapıyorum fakat excel'e ve kodlara uzak olan bir çok arkadaşım bu konuda zorluk çekiyor ve programı kullanamıyor. Sizden ricam;
Bir makroya bağlı tuşa tıkladığımda, visual basicteki module1 içinden M7 hücresine yazdıklarımı (/8.01.2019/) m18 hücresine yazdıklarımla (/9.01.2019/)değiştirmesi. Yani Bul - Değiştir formülü istiyorum ama excel sayfalarında değil visual basic içinde değiştirecek. Yardımlarınız için şimdiden çok teşekkür ederim, esen kalın.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Btr97
 
Kayıt: 21 Ağu 2017 10:04
Meslek: Kamu Personeli
Yaş: 27
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Etimesgut

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#2)  şahin » 09 Oca 2019 23:40

Merhaba
Anladığım kadarı ile verinin çekildiği excel in yolu "Güncel Dosya Adı" dediğini alandaki (M18) değer ile değişmesi gerekiyor, bubun için makrodan değişim yapmanıza gerek yok. Aşağıdaki bir değişiklikle M18 hücresinde ne yazıyorsa dosya yolu o olacak..
Kod: Tümünü seç
Sub VeriAktarımı()
'
' VeriAktarımı Makro
'

'
Workbooks.Open Filename:= _
        "\\Ank1mrk\d\Diğer\  " & Sayfa1.Range("M18") & " \Kaynak.xlsx"
    Range("B2:P2").Select
    Selection.Copy
    Windows("Kitap1").Activate
    Range("B2").Select
    ActiveSheet.Paste
    Application.WindowState = xlNormal
    Windows("Kaynak.xlsx").Activate
    Range("B3:P27").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Kitap1").Activate
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.WindowState = xlNormal
    Windows("Kaynak.xlsx").Activate
    ActiveWindow.Close
    Range("R9").Select
    Sheets("Anasayfa").Select
    MsgBox "Veri Aktarımı Tamamlandı."
End Sub
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#3)  şahin » 09 Oca 2019 23:52

Örnek dosya ekte
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#4)  Btr97 » 10 Oca 2019 00:04

Şahin Bey çok ama çok teşekkür ederim. Bir aydınlama yaşadım sayenizde, ve çok işime yarayacak bir şey öğrendim. Eğer vaktiniz varsa bir diğer problemime bakabilir misiniz? (viewtopic.php?f=4&t=32297 - Makro ile Tablo Özeti Oluşturma)
Kullanıcı avatarı
Btr97
 
Kayıt: 21 Ağu 2017 10:04
Meslek: Kamu Personeli
Yaş: 27
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Etimesgut

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

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#5)  şahin » 10 Oca 2019 12:46

Son isteğiniz şu şekilde olabilir, uzun olan cümleleri en son boş sütuna kısaltmalarını yazarak ve anasafayada veriyi o sütunda çektirilebilir. Diğer bi yol ise atıyorum 30 karakterden fazla cümlelerin kelimelerini 4 er har ve sonlarına nokta koydurulabilir ama istediğiniz kalıpta olmaz.
Dosyanız ekte

Furkan Yardım2 .rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#6)  Btr97 » 10 Oca 2019 14:09

Çok teşekkür ederim yardımınız için. Ben örnek olsun diye üç sayfadan veri alınmasını istemiştim aslen 25 sayfadan veri çekmesi lazım. Kodda ne gibi değişiklikler yapmam lazım acaba ?
Kullanıcı avatarı
Btr97
 
Kayıt: 21 Ağu 2017 10:04
Meslek: Kamu Personeli
Yaş: 27
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Etimesgut

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Makro ile Visual Basic içindeki verileri değiştirmek?

İleti#7)  şahin » 10 Oca 2019 16:30

Anasayfa B sütunda yazan ilçe isimlerin hepsini sayfalarda arar bulduğunda verileri çeker. Değişikliğe gerek yok Ana sayfa B sütunudaki isim ile sayfa adları aynı olsun ilçe sayfaları formatları aynı olsun
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot] ve 2 misafir

Bumerang - Yazarkafe