vba

  1. M

    Çözüldü Satırdaki numara değiştikçe tüm satırın renginin değişmesi

    Merhaba Sevgili arkadaşlar. Ekte yer alan dosyayı birinci sayfadaki halinden 2. sayfadaki haline getirmek istiyorum. B sütununda yer alan numara 2 deki her değişikliğe kadar bütün satırın rengi aynı olsun. Numara 2 değiştiği zaman 2. renge geçsin. döngü bu şekilde devam etsin. Yani atıyorum ilk...
  2. serrayagmur

    Yardım query ile datasource'dan otomatik veri alma,otomatik macro çalıştırma

    Merhabalar, Otomatik olarak .csv uzantılı bir dosyaya günlük frekansta veri aktarılmakta. Adı konumu değişmeyen tek bir dosya, yalnızca içindeki veriler güncelleniyor her sabah 6.00 ' da. Mevcut durumda; yeni bir excel dosyası oluşturdum ve bu excel dosyasını query ile .csv dosyasına bağladım...
  3. Y

    Çözüldü Hücre seçildiğinde işlem yaptırma

    Merhaba; Aşağıdaki formül ile bir hücreyi seçtiğimde sayfadaki bazı bilgileri diğer sayfaya istediğim yere kaydettiriyorum. Bu kodu yıllardır sorunsuz kullanıyorum. Private Sub Worksheet_selectionChange(ByVal Target As Range) If Intersect(Target, Range("c3123")) Is Nothing Then Exit Sub i =...
  4. S

    Çözüldü Kodla isim ve tarihin kesişimini bulup, ilgili hücreye veri aktarma

    Merhaba, yapmaya çalışıp bir türlü yapamadığım bir konuda yardım talep ediyorum. Userform üzerinden mesai sayfasındaki ilgili alanları doldurabiliyorum, yapamadığım konu ise mesai sayfasındaki Adı ve Soyadı ile Mesai Saati bölümünün Sayfa 1 deki isim ve tarih karşısındaki kesişimini otomatik...
  5. S

    Yardım Alt Klasörlerden Resim Çağırma

    Merhabalar, Çalışmış olduğum kurumun görevim nedeniyle excel ile aşırı işim olmasa da kendim için kolaylık sağlayabilecek bir fikir geldi aklıma. VBA bilgim yetersiz olduğu için mümkün olabilir mi diye siz üstatlara sormak istedim. Senaryo şudur; elimde ortak ağda bir ana klasör var ve bu...
  6. E

    Yardım sort butonuna datalardan en çok gol atan ilk 5 takımın kodunu yazmak

    Private Sub CommandButton5_Click() Dim total_data As range Dim specific_column As range Set total_data = Worksheets("Sheet").range("A2:C12") Set specific_column = Worksheets("Sheet1").range("D:D") total_data.Sort Key1:=specific_column, Order1:=xlDescending, Header:=xlYes...
  7. arslancetin

    Yardım Formül eklediğim hücreden fotoğraf çekme makrosunu çalıştıramıyorum.

    Öncelikle herkese iyi çalışmalar diliyorum. Bu kod örnek dosyadaki "malzeme bulma" sayfasının a1 hücresine "giriş" sayfasındaki malzemelerin sırasını girip düşeyara ile a3 hücresine malzemenin adını getirip, bu isme göre 6.satırda belirtilen yoldaki klasörden fotoğraf aratıp c3 hücresine resmini...
  8. K

    Yardım Konu bazlı program hazırlama

    merhaba arkadaşlar Excell konusunda bilgim çok sınırlı bu yüzden yardımınıza ihtiyacım var. Yapmak istediğim şey ders konularının zamanı geldiğinde programa aktarıp öğrencinin o hafta hangi konulara ve kaç ders saati çalışacağını gösteren bir plan hazırlamak hazırladığım şablonu ekliyorum son...
  9. K

    Yardım tarihe gün ekleme

    merhaba arkadaşlar iş başlangıç ve bitiş tarihi kaç gün çalışılacak 01 Eylül 2019 - 04 Eylül 2019 3 04 Eylül 2019 - 11 Eylül 2019 7 burayı formülle doldurmak istiyorum 4 burayı formülle doldurmak istiyorum 10 burayı formülle doldurmak istiyorum 8
  10. D

    Yardım ListView Süzme İşlemi

    İyi günler kolay gelsin. Ben bir firmanın bilgi işlem müdürlüğünde çalışıyorum. Elimden geldiğince yazılım ile uğraşıyorum excel vba ile bir çalışma yaptım fakat yapamadığım bir olay var. Stok butonuna tıkladıktan sonra listview ile verilerimi çekiyorum fakat süzme ekleyemiyorum. Ürün Cinsine...
  11. H

    Çözüldü Rütbeye ve Sicile Göre Sıralama Yapmak

    Herkese Merhaba; Ekte bir excel ekledim. Burada VERİ sayfasında sicil rütbe ve bürolar var. VERİ sayfasında iki tane düğme yaptım Rütbe Sicil Sıralama - --- Büroya Göre Sıralama şeklinde Benim isteğim 1. İşlem : Rütbe ve Sicil Sıralamaya tıklayınca A sütunundaki sıralama hariç olmak üzere B2 -...
  12. S

    Yardım Vba ile QR kod olusturma

    Merhaba, Ek dosyada yazdığım degeri QR koda çevirmek istiyorum ve verdigim başlangıç ve bitiş numarasına göre bunu print etmesi gerekiyor.Yardımcı olur musunuz.
  13. H

    Yardım UserFormda Kaydet Değiştir Sil Listboxta Veri Süz Yazdır

    Arkadaşlar inanın çok uğraştım ama oldukça zorlandım yapamıyorum. Yardim ederseniz cok sevinirim . Bu dostaya cok ihtiyacim var parca parca ihtiyacim dogrultusunda olusturmaya çalışıyorum. Yardimi dokunan herkesten Allah razı olsun. Giriş için Kullanıcı adı 1 Şifre 1 Kullanıcı gidişinden...
  14. rasitseran

    Yardım kaç kere fatura kestim

    Burada toplam kaç fatura kestiğimi nasıl bulabilirim?
  15. H

    Yardım Birden Fazla Koşula Göre Değer Getirme

    Herkese kolay gelsin benim şöyle bir sorunum var: ŞARTLAR: GÖREV sayfadaki F7 hücresi TRAFOCU Sayfasında A sütününda herhangi bir yerde var mı (her biri iki tane var) ve GÖREV sayfasının J7 hücresi TRAFOCU Sayfasının B sütünunda var ise (birden fazla var aynısını) ve GÖREV sayfasının L7 hücresi...
  16. C

    Yardım Navigasyon Panel Ayarlaması

    Arkadaşlar Makro başlangıç seviyesindeyim. Birşekilde EK'li formu oluşturdum Dosyanın amacı; * Herbir kullanıcı kendi şifre ve kullanıcı adı ile girdiğinde kendi navigasyon ekranında sadece kendine tanımlı sayfalara girebilsin * Örneğin kullanıcı adı sozdemir, şifre soz6566 ile giriş...
  17. seckinb

    Yardım Userform ile girilen formül otomatik çalışmıyor

    Merhaba 0 olarak girilen veriler grafikte görünmesin diye =yoksay() formülünü kullanmak istedim. değerleri userform aracılığı ile hücrelere giriyorum. formül otomatik olarak devreye girmiyor AD? olarak kalıyor. nasıl otomatik aktifleştiririm? Private Sub submit1_Click() Dim ssheet1 As...
  18. Murat OSMA

    Makale SETATTR

    SETATTR( PathName, Attributes ) Bir dosyanın veya dizinin niteliklerini tanımlar. PathName Bir dosya adını belirten metin ifadesi - dizin veya klasör içerebilir ve sürücü olabilir. Attributes Toplamı dosya özelliklerini belirten sabit veya sayısal ifade. Açıklamalar * Yol adı ile...
  19. Murat OSMA

    Makale MKDIR

    MKDIR (Path ) Yeni bir dizin klasör oluşturur. Path Oluşturmak istediğiniz dizinin tam yol adı. (String) Açıklamalar * Bu işlev, birden çok alt klasör oluşturmaz. * Alt klasörler oluşturmak istiyorsanız, önce üst düzey klasörleri oluşturmalı ve ardından alt klasörleri bir sonraki prosedür...
  20. Murat OSMA

    Makale GETATTR

    GETATTR( PathName ) Belirli bir dosyanın, dizinin veya klasörün niteliklerini temsil eden bir Integer tam sayı döndürür. (Integer) PathName İncelemek istediğiniz dosyanın tam yol adı. (String) Açıklamalar * PathName bir dizin ve sürücü içerebilir. * Döndürülen değer, aşağıdaki değerlerin...
Üst Alt