Satıra Son Eklenen Veriyi Alma

[excel faResi]

Merhaba;

Her hafta başında satırın son hücresine güncel üretim rakamının eklendiği bir raporumuz var. Yapmak istediğim; satırın son hücresine yeni eklenen veriyi hedefle karşılaştırarak hedef gerçekleşme oranını % cinsinden bulmak. Asıl sorunum son eklenen veriyi alamamak. Henüz makro kullanmayı bilmiyorum, örnek dosya yardımcı olabilir umarım. Şimdiden tüm cevaplayanlara teşekkürler.

 

[uzmanamele]

Merhaba;

Her hafta başında satırın son hücresine güncel üretim rakamının eklendiği bir raporumuz var. Yapmak istediğim; satırın son hücresine yeni eklenen veriyi hedefle karşılaştırarak hedef gerçekleşme oranını % cinsinden bulmak. Asıl sorunum son eklenen veriyi alamamak. Henüz makro kullanmayı bilmiyorum, örnek dosya yardımcı olabilir umarım. Şimdiden tüm cevaplayanlara teşekkürler.

Merhaba

Bu işinizi görür mü?

=DOLAYLI(ADRES(2;(TOPLA.ÇARPIM(MAK((A2:I2<>"")*(SÜTUN(A1:I1)))))))

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki formülü deneyiniz.

=ARA(2;1/(A2:G2<>"");A2:G2)

 

[excel faResi]

2 cevap için de teşekkürler.. 2'si de doğru veriyi getiriyor..

Şimdi formülleri anlayıp öğrenmem lazım..

 

[ssdestek]

Merhaba

Bu işinizi görür mü?

=DOLAYLI(ADRES(2;(TOPLA.ÇARPIM(MAK((A2:I2<>"")*(SÜTUN(A1:I1)))))))

****************************************

MERHABA,
Ben de böyle bir cevap arıyordum, bana da faydalı oldu. Teşekkür ederim. Bir şey daha sorayım, buna bağlı olarak en son eklenen verinin tarihini nasıl bulabilirim, yani veri eklendiği anki kayıt tarihi, mümkünse kod kullanmadan,

Saygılarımla,

 

[Korhan Ayhan]

Tarih bilgisi nerede?

 

[ssdestek]

Tarih bilgisi nerede?

**************************
Teşekkür ederim, önceki cevabınızı kullanarak tarihi de bulabildim. O halde şunu sorayım, aaa.xls adlı bir dosyam var, ben bu dosyayı açtığımda C1hücresine benim kullandığım bilgisayarın IP numarasını nasıl gösterebilirim veya yazdırabilirim ( Örneğin benim bilgisayarımın IP numarası 192.16.1.45 dır), mümkünse kod kullanmadan

Saygılarımla,

 

[Korhan Ayhan]

Kod kullanmadan bilgisayarınızın IP numarasını alamazsınız.

Aşağıdaki fonksiyon ile IP numarasını elde edebilirsiniz.

Boş bir hücreye aşağıdaki gibi yazarsanız bilgisayarın IP numarasını verir.

=GetIPAddress()

Function GetIPAddress()
    Const strComputer As String = "."   ' Computer name. Dot means local computer
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
    Dim strIPAddress As String

    ' Connect to the WMI service
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ' Get all TCP/IP-enabled network adapters
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    ' Get all IP addresses associated with these adapters
    For Each IPConfig In IPConfigSet
        IPAddress = IPConfig.IPAddress
        If Not IsNull(IPAddress) Then
            strIPAddress = strIPAddress & Join(IPAddress, ", ")
        End If
    Next

    GetIPAddress = strIPAddress
End Function

 

[ssdestek]

Kod kullanmadan bilgisayarınızın IP numarasını alamazsınız.

Aşağıdaki fonksiyon ile IP numarasını elde edebilirsiniz.

Boş bir hücreye aşağıdaki gibi yazarsanız bilgisayarın IP numarasını verir.

=GetIPAddress()

Function GetIPAddress()
    Const strComputer As String = "."   ' Computer name. Dot means local computer
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
    Dim strIPAddress As String

    ' Connect to the WMI service
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ' Get all TCP/IP-enabled network adapters
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    ' Get all IP addresses associated with these adapters
    For Each IPConfig In IPConfigSet
        IPAddress = IPConfig.IPAddress
        If Not IsNull(IPAddress) Then
            strIPAddress = strIPAddress & Join(IPAddress, ", ")
        End If
    Next

    GetIPAddress = strIPAddress
End Function

****************************************

Merhaba,

Ben Excel 2010 TR kullaniyorum. boş bir hücreye (C1 hücresine) sizin verdiğiniz komutu yazdım ( =GetIPAddress() ) ama bilgisayarım IP numarası görünmedi ??

Saygılarımla,

 

[Korhan Ayhan]

Hemen altındaki kodu boş bir modüle uyguladınız mı?

 

[ssdestek]

Hemen altındaki kodu boş bir modüle uyguladınız mı?

******************
SANIRIM YAPTIM.
dosya ektedir.

 

[Korhan Ayhan]

Eklediğiniz dosyada modüle görünmüyor. Sadece formülü hücreye yazmışsınız. Bu şekilde çalışmaz.

ALT+F11 tuşlarına basın.
Karşınıza kod penceresi gelecek.
INSERT menüsünden MODULE seçeneğini seçin.
Sağ tarafa beyaz bir pencere açılacak.
Verdiğim kodu bu pencereye uygulayın.

Bu şekilde sonuca gidebilirsiniz...