vba kodu ile uzak bilgisayardaki dosyaları kopyalamak istiyorum. Forumdaki örnekleri inceledim. Ama bir türlü yapamadım.

Uzak bilgisayar örnek verecek olursam;

\\192.168.42.175\Koordine\Görevliler\Kaynak\ içerisinde 48 adet klasör var ve klasörler içerisinde o birime ait *.xlsx dosyaları mevcut. ( Ben örnekte Birim (1).........Birim (48) adlandırdım ama isimler farklı) Klasörlerin hepsine ayrı ayrı girip kopyalama zaman almakta ben bu xlsx dosyalarını hedef klasöre nasıl aldırabilirim?

Acaba

Merhaba
Excel'de Office365'in görsel güzelliklerinden faydalanmak için şekilleri biçimlendirerek oluşturduğum resimlere makrolar atayabiliyorum ama butonların tıklandığı olayına yazdığım kodları makrolarla nasıl çalıştırabileceğimi bulamadım. Bunu nasıl yapabilirim. Yardımlarınız için teşekkürler.

Resimdeki Sağdaki mail gönder butonunun görevini Soldaki Mavi renkli Mail gönder nesnesinin makrosuna atamak istiyorum.
[Resim: https://resim.accesstr.net/do.php?img=10968]

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Okul")
Set s2 = Sheets("İlçe")
s2.Range("G9") = WorksheetFunction.VLookup(s2.Range("B9"), s1.Range("B9:h54"), 4, 0)
s2.Range("H9") = WorksheetFunction.VLookup(s2.Range("B9"), s1.Range("B9:h54"), 5, 0)
s2.Range("G10") = WorksheetFunction.VLookup(s2.Range("B10"), s1.Range("B9:h54"), 4, 0)
s2.Range("H10") = WorksheetFunction.VLookup(s2.Range("B10"), s1.Range("B9:h54"),

Es Selamün Aleyküm
Okullar sayfasının A2:A125 aralığında ne kadar "Seçildi" yazan var ise "B2:B125" de ki olanları listbox2 de listelemek istiyorum. Rica etsem yardımcı olabilir misiniz?

Merhaba
Excel sayfasındaki 3 hücreye kayıt yapmak için yazdığım makro ilk seferinde çalışmasına rağmen 2.defasında hata verdi. Kod da bir tutarsızlık yok ama neden bu hatayı veriyor. Yanlış olan nedir.

[code]Option Explicit

Sub inputbox1()

Dim isim As String
Dim dogumTarihi As Date
Dim kilo As Integer

isim = InputBox("Adınızı Giriniz...")
dogumTarihi = InputBox("Doğum tarihini giriniz")
kilo = InputBox("Kilonuzu giriniz")

Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCel

Es Selamün Aleyküm
Ustam yukarıdaki formülü R1C1 formatı ile Makro kaydet ile Excel kendisi yapıyor.

METNEÇEVİR yerine text yazdım
SAĞDAN yerine rıght gibi değiştirdim ama olmadı




Bu formül normal Vba formatı ile nasıl yazılır?

Merhaba
"Ana_sayfa" sekmesinde ki formdan bilgileri "Ana_sayfa" sayfasına kaydederken bu bilgilerden
TextBox_Gsm.Value değerinin "WHATSAPP" sayfasında "A" sütununda sıradaki boş hücreye otomatik kopyalanmasını nasıl sağlarım. Şu an bu işlemi formül ile manuel olarak yapabiliyorum ama kullanışlı olmuyor.

[Resim: https://resim.accesstr.net/do.php?img=11036]

[code]
.Cells(SonSatir, 27) = ComboBox_Kaynak.Value
.Cells(SonSatir, 28) = ComboBox_Ziyaret.Value
.Cell

Arkadaşlar hayırlı akşamlar
Elimdeki Excel dosyasında sayfa1 de A sütununda yazılan değeri /GÖNDERİLECEK RESİMLER/ klasöründe varsa dosya yolunu E Sütunan yazdırılacak. ve aynı şekilde Sayfa2 de düşey ara ile A ve B sütunlarını Sayfa1 de B ve C sütunlarına getirmesini istiyorum. Şimdiden Teşekkürler

https://s6.dosya.tc/server2/a0whpv/Yeni_klasor.rar.html

Merhaba
Uygulamam da Menuden tıklandığında açılan pergole formumda Cephe Ölçüsü textbox'ının exit olay yordamına yazdığım kod da bana çok garip gelen neden olmadığı konusunda anlamlandıramadığım bir durum var. 2 şartım var. 1.si Girilen cephe ölçüsü değerinin 8000 e eşit ve büyük olduğu bir durumda ray sayısını 3 den 4 e arttırmak ki bu durumu gerçekleştiriyorum yazdığım kodda. 2.si ise Girilen Cephe ölçüsü değeri eğer 4000 den küçük ise bu seferde ray sayısını 3 den 2 ye düşürmek. Bunu bir

Konu açıklaması biraz kısır oldu ama yapmak istediğimi şöyle açıklayayım. Bir formun üzerinde 2 textbox'ım var. Normalde Excel hücresinde =Bugün + 10 formülünü yazdığınızda o hücreye o günden itibaren 10 gün sonrasının tarihini atıyor. Ben bu işlemi aşağıdaki koda nasıl uyarlayabilirim. Textbox_Tarih değerine 10 ekleyip çıkan tarihi TextBox_Geçerlilik tarihine atamak istiyorum. Yardımlarınız için teşekkür ederim.

TextBox_TeklifGecerlilikTarihi.Value = TextBox_Tarih.Value + 10