Dolu satırdaki bilgileri yardımcı alan kullanmadan sırasıyla

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Dolu satırdaki bilgileri yardımcı alan kullanmadan sırasıyla

İleti#1)  teyadih » 17 Şub 2021 18:35

Merhaba arkadaşlar. Personel Sıra Takip sayfasında formülle alınan AD sütunundaki dolu olan satırdaki bilgileri sırasıyla B sütununa aldırabilir miyiz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
teyadih
Siteye Alışmış
 
Kayıt: 12 Şub 2017 16:07
Meslek: Memur
Yaş: 45
İleti: 178
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Yenibosna

Cevap: Dolu satırdaki bilgileri yardımcı alan kullanmadan sı

İleti#2)  okutkan » 17 Şub 2021 20:25

Telefonda yazdım kodu deneyemedim. Deneyin.
Kod: Tümünü seç
set sf1 = sheets("Personel Sıra Takip")
set sf2 = sheets("Sayfa1")
son = sf1.cells(rows.count, "AD").end(xlup).row
a = 1
for i = 8 to son

if sf1.cells(i, "AD").value > "" then
sf2.cells(a, "B").value = sf1.cells(i, "AD").value

a = a + 1
end if


next i
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Dolu satırdaki bilgileri yardımcı alan kullanmadan sı

İleti#3)  teyadih » 17 Şub 2021 21:37

Teşekkür ederim sayın okutkan formül olarak alabilir miyim
Kullanıcı avatarı
teyadih
Siteye Alışmış
 
Kayıt: 12 Şub 2017 16:07
Meslek: Memur
Yaş: 45
İleti: 178
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Yenibosna

Cevap: Dolu satırdaki bilgileri yardımcı alan kullanmadan sı

İleti#4)  okutkan » 17 Şub 2021 21:42

Belki alabilirsiniz ama benden değil:) formül olarak yapılır mı bilmiyorum ama kod ile yapmanız her zaman iyidir. Makro ile yapmama sebebiniz nedir?
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

Cevap: Dolu satırdaki bilgileri yardımcı alan kullanmadan sı

İleti#5)  halily » 18 Şub 2021 00:01

tam olarak istediğiniz bu mu emin olamadım ama aşağıdaki kodu dener misiniz
Kod: Tümünü seç
Set sf1 = Sheets("Personel Sıra Takip")
Set sf2 = Sheets("Sayfa1")
son = sf1.Cells(Rows.Count, "AD").End(xlUp).Row
a = 1
For i = 8 To son

If sf1.Cells(i, "AD").Value > "" Then
sf2.Cells(a, "B").Formula = "='" & sf1.Name & "'!" & sf1.Cells(i, "AD").Address
a = a + 1
End If
Next i
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Dolu satırdaki bilgileri yardımcı alan kullanmadan sı

İleti#6)  halily » 18 Şub 2021 00:08

yada
Kod: Tümünü seç
Set sf1 = Sheets("Personel Sıra Takip")
Set sf2 = Sheets("Sayfa1")
son = sf1.Cells(Rows.Count, "AD").End(xlUp).Row
a = 1
For i = 8 To son
    If sf1.Cells(i, "AD").Value > "" Then
        sf2.Cells(a, "B").Formula = "='" & sf1.Name & "'!" & sf1.Cells(i, "AD").Address(0, 0)
        a = a + 1
    End If
Next i
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Dolu satırdaki bilgileri yardımcı alan kullanm

İleti#7)  teyadih » 18 Şub 2021 08:50

okutkan yazdı:Belki alabilirsiniz ama benden değil:) formül olarak yapılır mı bilmiyorum ama kod ile yapmanız her zaman iyidir. Makro ile yapmama sebebiniz nedir?

Tüm bilgisayarlarda Microsoft olmadığından makro düzenli çalışmıyor. Bu yüzden formül tercih ediyorum.
Kullanıcı avatarı
teyadih
Siteye Alışmış
 
Kayıt: 12 Şub 2017 16:07
Meslek: Memur
Yaş: 45
İleti: 178
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Yenibosna


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

Bumerang - Yazarkafe